Vorwort 



Herzlichen Gluckwunsch zu Ihrem neuen Colour-Genie Computer! Mit dem Colour-Genie 
haben Sie einen Computer erworben, der Ihnen durch seine hochmoderne Technik Mog- 
lichkeiten bietet, die noch vor wenigen Jahren nur fur viele tausend Mark zu haben wa- 
ren. 

Durch dieses Handbuch werden Sie Schritt fur Schritt immer neue Fahigkeiten Ihres 
Computers kennen und beherrschen lernen. Ich gehe dabei davon aus, daB der Umgang 
mit einem Computer for Sie eine neue Erfahrung 1st. Daher ist dieses Handbuch so aus- 
gelegt, daB Sie die Basic-Programmiersprache Ihres Computers „von der Pike an" lernen 
kOnnen. Dabei wird alle graue Theorie durch reichlich — im wahrsten Sinne des Wortes 
— farbige Praxis anhand von Programmierbeispielen vertieft werden. Denjenigen von Ih- 
nen, die schon Computer-Erfahrung besitzen, oder die von einem anderen Computer zum 
Colour-Genie gewechselt haben (was bei dessen Preis-Leistungsverhaltnis nicht selten 
sein durfte), wird anfangs Einiges etwas langwierig vorkommen, aber auch sie sollten 
dieses Handbuch durchlesen; im fortgeschrittenen Teil werden auch sie interessante 
„Programmier-l_eckerbissen" finden. Ich hoffe, daB Sie mit diesem Handbuch Ihren Com- 
puter beherrschen lernen, der dann ein wertvolles Werkzeug for Sie sein wird. 

Sei es als Farb-Genie, Unterhaltungs-Genie, Mathe-Genie, Grafik-Genie, Musik-Genie, 
Spiel-Genie, Kartei-Genie, Text-Genie, Schul-Genie, Berufs-Genie . . . 



... in jedem Falle wunschen wir Ihnen viel SpaB 
mit Ihrem neuen Computer! 



TROMMESCHL&GER 
COMPUTER GMBH 
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1 ■Aufstellung und AnschluB 
des Colour-Genies 



Nach dem Auspacken mUssen Sie sich zuerst vergewissern, daB das GerSt durch den 
Transport keinen auBerlich sichtbaren Schaden erlitten hat. 

Dann sollten Sie sich Gedanken Qber die Aufstellung des Computers machen. .Das 
Colour-Genie kann an einen normalen Pal-Farbfernseher Oder auch an einen SW- 
Fernseher angeschlossen werden. Ein Farbfernseher ist natQrlich vorzuziehen. Wahlen Sie 
den Aufstellungsplatz dort, wo Sie das Bild des Fernsehers gut einsehen kdnnen und wo 
Sie zugleich die Tastatur gut bedienen konnen. 

Achten Sie ferner darauf, daB Sie die LOftungschUtze auf der Unterseite des Computers 
nicht blockieren. 

Der AnschluB an den Fernseher ist recht einfach: Aus dem Colour-Genie fuhrt ein Kabel 
heraus, das am Ende einen Antennenstecker hat. Diesen stecken Sie in die Antennen- 
buchse des Fernsehers. Dann mtissen nur noch die Netzstecker des Fernsehers und des 
Computers eingesteckt werden. Achten Sie darauf, daB diese test sitzen. 

Nun schaiten Sie beide Gerate ein. Der Computer hat seinen Netzschalter links auf der 
RQckseite. Wenn der Computer eingeschaltet ist, leuchtet die rote Leuchtdiode links ne- 
ben der Tastatur auf. AbschlieBend muB noch der Fernseher auf den Computer abge- 
stimmt werden. Wie Sie Ihren Fernseher abstimmen, konnen Sie aus der Bedienungsan- 
leitung des Fernsehers entnehmen. 

Der Computer erzeugt sein Bild auf UHF-Kanal 36 Oder auf VHF-Kanal 3 — den richtigen 
Wert kdnnen Sie vom Aufkleber auf der Unterseite des Computers ablesen, 

Wenn der Fernseher richtig abgestimmt ist, erscheint die farbige Schrift: 
MEM SIZE? 

Jetzt kdnnen Sie noch die Farbsattigungs-, Kontrast- und Helligkeitsregler des Fernsehers 
so einstellen, daB die Schrift moglichst gut lesbar ist. 

Nun kann die Arbeit mit dem Computer beginnen! 




2.Die ersten Schritte 



Wir wollen nun folgendermaBen vorgehen: Zuerst werden Sie sehen, wie man mit dem 
Colour-Genie ganz normal rechnen kann. Dann werden Sie die Funktion von Variablen 
und anschlieBend die GrundzQge der Basic-Programmierung kennenlernen. 

Nachdem Sie sich mit den Tastaturfunktionen Ihres Colour-Genies vertraut gemacht ha- 
ben, werden die fundamentalen Basic-Befehle in aller AusfQhrtichkeit erklart. Mit der 
Ubung, die Sie dann haben werden, kdnnen Sie die restlichen Befehle und Funktionen in 
relativ kurzer Zeit erlernen. 

Wie schon erwahnt, meldet sich der Computer nach dem Einschalten mit der Frage 

MEM SIZE? ■ 

Diese Abfrage ermoglicht es, Speicher zu reservieren. Dies ist aber jetzt noch nicht inter- 
essant. DrQcken Sie nun die <RETURN>-Taste. 

Dfese Taste wird immer dann gedrOckt, wenn eine Eingabe abgeschlossen ist und sie 
nun vom Computer bearbeitet werden soil. Das Bild sieht nun so aus: 

MEM SIZE? 
COLOUR BASIC 
READY 
>■ 

Das Colour-Genie befindet sich jetzt im Eingabe-Modus. Dies wird durch die Metdung 
„READY" angezeigt. 

Das „>"-Zeichen, der sogenannte Prompt, bedeutet, daB ab hier eine Eingabe erwartet 
wird. Das blinkende Quadrat „■", der sogenannte CURSOR, zeigt an, wo das nachste 
Zeichen, das Sie eingeben, erscheinen wird. DrQcken Sie z. B. irgendeine Buchstaben- 
Taste und Sie sehen, wie der Buchstabe auf dem Bildschirm erscheint und der Cursor ei- 
ne Stelle weiterrUckt. Wenn Sie nun den Buchstaben wieder loschen wollen, drOcken Sie 
die <<->-Taste. 

Diese Taste drucken Sie immer dann, wenn Sie einen Tippfehler korrigieren wollen. 
Wenn Sie die <<->-Taste mehrfach drucken, werden mehrere Zeichen geiOscht. 

Noch ein Hinweis vorab: Sollten irgendwann bei der Eingabe statt der gewunschten 
Buchstaben Grafikzeichen erscheinen, dann haben Sie vermutlich aus Versehen die 
<MOD SEL>-Taste gedruckt. DrQcken Sie in diesem Fall nochmals die <MOD SEL>- 
Taste, und Sie kdnnen wieder Buchstaben eingeben. 



3«Rechnen mit dem Genie 



Geben Sie Folgendes ein: 

>PRINT 12 + 25 

und drGcken dann die <RETURN>-Taste. Der Computer gibt das Ergebnis richtig an: 

47 

READY 
>■ 

Sehen wir uns Ihre Eingabe einmal genau an. 

Zuerst das Wort „PRINT": Dieses Wort, genauer gesagt dteser BEFEHL, bedeutet, dafi 
der Computer alles Folgende berechnen und dann das Resultat ausgeben soli. 

Die <RETURN>-Taste besagt, daB die Eingabe nun bearbeitet werden soil. Da diese Ta- 
ste hinter jeder kompletten Eingabe gedruckt werden muB, wird sie im folgenden nicht 
jedesmal extra erwahnt werden. 

Bevor wir uns mit den anderen Rechenarten beschaftigen, will ich Sie noch auf eine Ver- 
einfachung hinweisen: 

Da der „PRINT"-Befehl sehr oft gebraucbt wird, kann man ihn durch ein einfaches „?" 
ersetzen. Das „?" erhalten Sie, indem Sie, wie bei einer Schreibmaschine, die <SHIFT>- 
Taste gedrQckt halten und dabei gleichzeitig die <?>-Taste drOcken. 

Folgende zwei Befehle sind also vollkommen gleichbedeutend: 

>PRINT 2 + 237 

239 
READY 
>■ 

>? 2 + 237 

239 
READY 
>■ 



Nun aber zu den anderen Rechenarten: 

Subtraktion 

Geben Sie Folgendes etn (Achtung: verwechseln Sie auf keinen Fall die Null <0) mit dem 
Buchstaben (O)!: 

>PRINT 12—20 

—8 

READY 

>■ 

Multlplikation 

Multipliziert wird mit dem Stern-Zeichen {•): 

>PRINT 7*230 

1610 
READY 
>■ 

Division 

Dividiert wird mit dem Querstrich (I): 

>PRINT 20 / 8 

2.5 
READY 
>■ 

Wenn Sie genau htnsehen, bemerken Sie, daB obiges Ergebnis nicht ein Komma, sondern 
einen Punkt als Trennungszeichen enthSlt. Dies entspricht der amerikanischen Schreib- 
weise. Das Gleiche gilt bei der Eingabe von Kommazahlen — auch hier muB das Komma 
durch einen Punkt ersetzt werden. 

Folgendes Beispiel ist also richtig: 

>PRINT 12.5 / 2.5 

5 
READY 
>■ 

Zur Division muB noch eins gesagt werden: Das „/"-Zeichen bezieht sich nur auf die un- 
mittelbar benachbarten Zahlen; es ersetzt nicht einen langen Bruchstrich! 

>PRINT 3 + 4 / 5 + 7 
entspricht also dem Term 

3 + -f + 7 

Wollen Sie aber den Term 
3 + 4 
5 + 7 

berechnen, mOssen Sie Klammern setzen. 

Das sieht dann so aus: 

>PRINT ( 3 + 4 ) / ( 5 + 7 ) 



Potenzieren 

Geben Sie folgenden Befehl ein: 

>PRINT 4 [ 3 

64 
READY 
>■ 
( 4 3 = 4 [ 3 = 4*4*4 = 64 ) 

Das Potenzierungszeichen „ [ " erhalten Sie durch DrOcken der Aufwartspfeiltaste <T>. 

Die Potenz, in obigem Beispiet 3, wird nicht wie sonst Oblich als Hochzahl eingegeben, 
da dies auf dem Bildschirm schwer darzustellen ware, sondern das „["-Zeichen legt die 
folgende Potenz fest. 



Durch das Potenzieren kann man auch Wurzeln Ziehen, denn es gilt: 

1 „ , j_ 

27 3 = 3 



n ) — -!~ 3 I — 

liX = X n z. B.: "V27 = " 3 



Computerbefehl: 

>PRINT 27 [ ( 1 / 3 ) 

3 
READY 
> ■ 
{Fur die Quadratwurzel gibt es allerdings einen eigenen Befehl.) 

Im vorigen Beispiel muBte wieder eine Klammer gesetzt werden, urn das richtige Ergeb- 
nis zu erhaiten. 

Der Befehl ohne Klammer: 

>PRINT 27 [ 1 / 3 
hatte namlich 



27 1 _ 



= 9 



3 

berechnet, da Potenzieren Vorrang vor Dividieren hat. In diesem Zusammenhang spricht 
man von „RECHENHIERARCHiE", d. h. einer Vorrangsregelung, die angibt, in welcher Rei- 
henfolge verschiedene Rechenschritte abgearbeitet werden. Diese Rechenhierarchie sieht 
in der Basic-Sprache so aus: 

— zuerst werden in Kiammern stehende AusdrQcke berechnet. Dabei wird mit der inner- 
sten Klammer begonnen. 

— Bei den Operationen gilt die Rangfolge: Potenzierung, dann Multiplikation oder Divi- 
sion und zuletzt Addition oder Subtraktion. 

— Gleichrangige AusdrQcke werden von links nach rechts abgearbeitet. 

Man muB immer ebensoviele Kiammern schlieBen, wie man gedffnet hat, sonst gibt der 
Computer eine Fehlermeldung aus. Bei der Umwandlung von komplizierten Formeln in 
das Basic-Format muB man sehr aufmerksam sein — eine falsch gesetzte oder fehlende 
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Klammer kann ein v6llig falsches Ergebnis verschulden. Hier noch ein Beispiel for diese 
Umwandlung einer Formel: Die Formel 

5 ■ (3 + 4) 2 



2 Z ■ (3 + 4) 
muB in Basic lauten: 



>PRINT 5* ( 3 + 4 ) [ 2 < 2 [ 2* ( 3 + 4 ) ) 

8 . 75 
READY 
>■ 

Geben Sie nun folgenden Befehl ein: 

>PRINT 999999+1 

1E + 06 
READY 
>■ 

Was hat diese Antwort zu bedeuten? 

Ganz einfach: Alle Zahlen, die gr&Ber als 999999 Oder kleiner als 0.01 sind, werden in der 
sogenannten EXPONENTIALSCHREIBWEISE ausgegeben, d. h., sie werden in Mantisse 
{Anteil vor dem „E") und Exponent (Anteil nach dem „E") aufgespalten, damit die Zahlen 
in der Ausgabe nicht zu lang werden. 

Zum Verstandnis mochte ich 2 Beispiele bringen, die zeigen, wie man die Exponenten- 
schreibweise aufzuschl Ossein hat: 

3.5E + 06 = 3.5-10 6 = 3.5-10-10-10-10-10-10 = 3500000 

3.5E— 04 = 3.5-10+ 4 = -— = 0.00035 

10-10-10-10 

Das Colour-Genie hat einen Rechenbereich von 1.70141 E— 38 bis 1.70141E + 38, d. h., Sie 

kOnnen bis zu 39stellige Zahlen verarbeiten. 

Noch einige wenige Hinweise zum Rechnen mit dem Genie: Normalerweise wird mit 6 
Stellen Genauigkeit gerechnet. Es gibt jedoch auch die Moglichkeit, mit 16 Stellen Ge- 
nauigkeit zu rechnen, doch davon mehr im nSchsten Kapitel, das sich mit dem Thema 
Variablen beschaftigen wird. 

NatOrlich kann Ihr Genie auch mathematische Funktionen, wie Sinus oder Logarithmus 
berechnen — die nOtigen Befehle lernen Sie noch kennen. Schon mal vorab ein Beispiel: 

>PRINT LOG ( 5 ) 
'1.60944 

READY 
>■ 

1.60944 ist der natOrliche Logarithmus von 5. 

Da die Rechengenauigkeit des Genies beschrankt ist, kann es zu sogenannten Run- 
dungsfehlern kommen. Ein Beispiel: 

>PRINT 3 [ 4 

81.0001 
READY 
>■ 

Richtig ware natOrlich 81 und nicht 81.0001 — Sie sollten also immer auf der Hut vor 
solchen Rundungsfehlern sein und Ihr Ergebnis dahingehend prOfen. 



4> Variablen 



Variablen spielen bei der Programmierung in der Basic-Computersprache eine wichtige 
Rolle. Mit dem Wort ..Variable" wird eigentlich ein ganz bestimmter Speicherraum, der 
durch den Namen der Variablen gekennzeichnet ist, benannt. Dieser Speicherraum wird 
im Hauptspeicher des Computers in dem Augenblick reserviert, in dem dieser Variablen 
im Programm zum ersten Mai ein bestimmter Wert zugewiesen wird. Der Zuweisungsbe- 
fehl sieht allgemein so aus: 

LET Variable = zuzuweisender Wert 

(Der Befehl „LET" kann auch weggelassen werden) 

z. B.: 

>LET A = 5 
READY 
>■ 

Damit ist der Variablen A der Wert 5 zugewiesen. 
Dies kann man folgendermaBen OberprQfen: 

>PRINT A 

5 
READY 
>■ 

Geben Sie nun ein 
>PRINT B 


READY 
>■ 

Der Variablen B ist noch kein Wert zugeordnet, deshalb wird sie mit angegeben. 

Man kann einer Variablen auch das Ergebnis einer Rechnung zuweisen. Ein Beispiel: 
>B = A + 10*15— 1 
READY 
>PRINT B 

154 
READY 
>■ 

Eine Variable kann auch in der eigenen Zuweisung benutzt werden: 

>C=10 

READY 

>C=C+1 

READY 

>PRINT C 

11 
READY 
>■ 

Der Befehl „C = C+1" ist keine mathematisch richtige Gleichung. Daher spricht man ihn 
am besten so: C wird zu C plus eins. 
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Geben sie Folgendes ein: 

>TEST = 0.009 

READY 

> PRINT TEST 

9E—03 
READY 
>■ 

Wie Sie sehen, kann man Variablen auch langere Namen geben. Dabei gilt allgemein: 

— Das erste Zeichen muB ein Buchstabe sein. 

— Alle folgenden Zeichen konnen wahlweise ein Buchstabe Oder eine Zahl sein, alle 
anderen Zeichen sind unzulassig. 

— Zur Unterscheidung dienen nur die ersten zwei Zeichen, d. h. der Computer 
kann z. B. die Variablen „TEST" und „TEXT" nicht unterscheiden! 

— In einem Variablennamen dUrfen keine Basic-SchlGsselworter, also keine 
Befehlsworter, vorkommen. 

Der Variablenname „XPRINTY" ist z. B. unzulassig, weil er den Befehl „PRINT" 

enthalt. 

(Siehe Liste der BASIC-BefehlswOrter.) 

Es gibt zwei grundsatzlich verschiedene Arten von Variablen: 

1. ZAHLEN-Variablen, auch numerische Variablen genannt. 

Wenn der Computer eine Zahlen-Variable findet, entnimmt er deren Zahlenwert aus 
dem Speicher und kann dann diesen Wert in einem Rechenvorgang verarbeiten. 
Bei den Zahlenvariablen gibt es 3 verschiedene Typen: 

— Einfache Genauigkeit (6stellig) 

— Doppelte Genauigkeit (16stellig) 

— Ganzzahl-Variablen (INTEGER-Variablen) 

Bis jetzt haben wir nur Variablen mit einfacher Genauigkeit benutzt. Die anderen Ty- 
pen werden Sie gleich kennenlernen. 

2. ZEICHENKETTEN-Variablen, auch String- Variablen genannt, zur Abspeicherung belie- 
biger Texte bis zu 255 Zeichen Lange. Mit diesen Variablen wollen wir uns nach den 
verschiedenen Zahlenvariablen beschaftigen. 
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Nun zu den 3 verschiedenen Typen von Zahlenvariablen: 

Variablen mit einfacher Genauigkeit 

Alle Variablen, die wir bis jetzt benutzt haben, waren Variablen mit einfacher ( = 
6stelliger) Genauigkeit. 

Normalerweise sind alle Variablen, die hinter ihrem Namen kein Sonderzeichen haben, 
Variablen mit einfacher Genauigkeit. Wie Sie jedoch spater sehen werden, gibt es die 
M6glichkeit, Variabien per Befehl auf eine andere Genauigkeit zu definieren. Wenn man 
in diesem Falle noch mit einfacher Genauigkeit rechnen will, muB dies durch ein ! hinter 
dem Variablennamen angegeben werden. 

1st dies aber nicht der Fall, so sind Variablen mit und ohne ! identisch. Ein Beispiel: 

>A ! =3.456 
READY 
>PRINT A 

3.456 
READY 
>■ 

Variablen mit doppelter Genauigkeit 

Variablen mit doppelter Genauigkeit rechnen auf 16 Stellen genau. Sie werden durch ein 

# hinter dem Variablennamen gekennzeichnet. Geben Sie Folgendes ein: 

>A# =1 / 3 

READY 

>PRINT A# 

.3333333432674408 
READY 
>■ 
Das Ergebnis ist zwar 16stetlig, nach der 7. Stelle aber falsch! 

Das liegt an einer Eigenart des Genie-Basics: Wenn ein Ergebnis mit 16stelliger Genauig- 
keit errefcht werden soil, mu6 mindestens ein Teil der Zuweisung ebenfalls als 16-steltig- 
genau definiert sein. 
Man kann nun auch eine Zahl als 16-stellig-genau definieren, indem man ein # anfOgt. 

So bekommen wir das gewunschte Ergebnis der obigen Rechnung: 
>A# =1# / 3 # 
READY 
>PRINT A# 

. 3333333333333333 
READY 
>■ 

Dasselbe geht auch ohne vorherige Variablenzuweisung: 

>PRINT 1# / 3# 

. 3333333333333333 
READY 
>■ 

Der Nachteil von Variablen mit doppelter Genauigkeit ist, daB sie mehr Speicher brau- 
chen und relativ langsam berechnet werden. 

Noch ein Hinweis: Bei Exponentialdarstellung wird bei Variablen mit doppelter Genauig- 
keit ein „D" statt des „E" bei Variablen mit einfacher Genauigkeit ausgegeben. 
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Integer- Variablen 

Integer-Variablen, auch Ganzzahlvariablen genannt, werden durch ein %-Zeichen hinter 
dem Namen gekennzeichnet. Der Bereich von Integer-Variabten reicht von ^32768 bis 
+ 32767. 

Nachkommastellen sind nicht moglich. DafQr haben Integer-Variablen den Vorteil, daB sie 
weniger Speicher brauchen und vom Computer erheblich schneller als die anderen bei- 
den Zahlenvariablentypen bearbeitet werden. 

Ein Beispiel fur Integer-Variablen: 

>A%=3.9 

READY 

> PRINT A% 

3 
READY 
>■ 

Sie sehen, daB der Nachkommaanteil einfach weggelassen wird, d. h., es wird nicht ge- 
rundet! 

Hier noch einmal die 3 verschiedenen numerischen Variable auf einen Blick: 
A 6 Stellen 

A! 6 Stellen 

A# 16 Stellen 

A% Ganzzahl 

Dabei sind die Variablen A, A#, A% 3 Variablen, die voilig unabhangig voneinander 
sind: 

>A = 15.6 

READY 

>A# =2.34567890123 

READY 

>A% = 200 

READY 

>PRINT A 

15.6 
READY 
>PRINT A# 

2.34567890123 
READY 
>PRINT A% 

200 
READY 
>■ 
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Zeichenketten- Variablen 

Zeichenketten-Variablen, auch String-Variablen genannt, dienen dazu, Texte zu bearbeiten. 
Rechnen kann man mit ihnen also nicht. 

Eine Variable wird als Zeichenketten-Variable festgelegt, indem man direkt hinter den Na- 
men ein Dollar-Zeichen setzt. 

Ein Beispiel: 

>A$ = "Text" 

READY 

> PRINT A$ 

Text 

READY 

>■ 



Wie Sie sehen, wird der Text bei der Zuweisung in AnfQhrungszeichen gesetzt. Deshalb 
darf im Text selbst auch kein AnfQhrungszeichen vorkommen! 

Die maximale Lange des Textes, der in einer Zeichenketten-Variablen gespeichert werden 
kann, betragt 255 Zeichen. Jedoch reserviert der Computer beim Einschalten nur Spei- 
cherplatz fQr 50 Zeichen. 

Es gibt allerdings die Mdglichkeit, diesen Speicherplatz individuell for das eigene Pro- 
gramm neu zu definieren. 
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S.Programmierung 



Bis jetzt haben Sie alle Befehle so eingegeben, daB sie vom Computer direkt ausgefOhrt 
wurden. Diese Betriebsart wird man immer dann wahlen, wenn man schnell irgendeine 
Rechnung ausfuhren will. Die weitaus wichtigeren Betrlebsarten sind aber die Programm- 
eingabe und der Programmablauf. 

Im Prinzip besteht ein Basic-Programm aus einer Oder mehreren Programmzeilen, von de- 
nen jede einen oder mehrere Befehle enthalt. Diese werden dann vom Computer der 
Reihe nach automatisch abgearbeitet. 

Dazu ein Beispiel: 

>10 A = 10 
>20 A$ = "TEXT" 
>30 PRINT A$ 
>40 PRINT A 

Das Program m ist damit eingegeben. 

Geben Sie nun folgenden Befehl ein: 

>LIST 

10 A = 10 

20 A$ = "TEXT" 

30 PRINT A$ 

40 PRINT A 

READY 

>■ 

Wie Sie sehen, listet der „LIST"-Befehl das eingegebene Programm auf. 

Gestartet wird ein Programm mit dem „RUN"-Befehl: 

>RUN 
TEXT 
10 
READY 
>■ 

Der Computer hat damit alle 4 Befehle hintereinander ausgefOhrt. tn Zeile 10 hat er A 
den Wert 10 zugewiesen und in Zeile 20A$die Zeichenkette „TEXT". Zeile 30 gibt dann 
den Text von A$ aus und Zeile 40 den Wert von A. 

Wenn Sie bei der Programmeingabe eine Zeile falsch eingegeben haben, geben Sie die 
entsprechende Zeile mit der gleichen Zeilennummer einfach neu ein. Die alte Zeile wird 
dabei automatisch geloscht. 
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Das vorangegangene Beispielprogramm hat die Zeilennummern 10, 20, 30 und 40. 

Im Genie-Basic kann man Zeilennummern von bis 65529 benutzen. Bei der Wahl von 
Zeilennummern sollte man auf jeden Fall zwischen den einzelnen Zeilennummern e'men 
gewissen Abstand lassen, im obigen Programm ist z. B. ein Abstand von 10 zwischen 
zwei Zeilennummern. 

Diese Programmierweise hat folgenden Vorteil: Wenn zwischen zwei Zeilennummern noch 
Platz ist, kann man dort jederzeit neue Zeilen einfugen. 

Das konnen Sie mit dem Programm ausprobieren, das Sie zuletzt eingegeben haben. 

Angenommen Sie wollen noch zwei Zeiien einfUgen, namlich Zeile 15, die der Variablen 
B1 den Wert 2.56 zuweist, und Zeile 25, die diesen dann ausgibt. Dazu geben Sie Foigen- 
des ein: 

>15 B1=2.56 

>25 PRINT B1 

>LIST 

10 A A=10 

15 B1=2.56 

20 A$ = "TEXT" 

25 PRINT B1 

30 PRINT A$ 

40 PRINT A 

READY 

>■ 

Mit dem „LIST"-Befehl sieht man, daB beide Zeilen eingefOgt worden sind. Wenn Sie das 
Programm starten, werden alle 3 Werte ausgegeben: 

>RUN 

2.56 
TEXT 

10 
READY 
>■ 

Wenn Sie eine Zeile loschen wollen, geben Sie nur die Zeilennummer ein. Wenn Sie z. B. 
die Zeile 40 IGschen wollen, geben Sie einfach eine 40 ein: 

>40 

READY 

>LIST 

10 A=10 

15 B1 = 2.56 

20 A$ = "TEXT" 

25 PRINT B1 

30 PRINT A$ 

READY 

>■ 

Der „LIST"-Befehl zeigt, daB die Zeile 40 entfernt wurde. 



16 



Urn das ganze Programm zu loschen, gibt man den „NEW"-Befehl ein: 

>NEW 

(Der Bildschirm wird geloscht) 

READY 

>LIST 

READY 

>■ 

Dabei werden sowohl das Programm als auch aile Variablen geloscht. 

Wie schon erwahnt, lassen sich auch mehrere Befehle in eine Zeile bringen. Dies ge- 
schieht einfach dadurch, daB man die einzelnen Befehle durch einen Doppelpunkt trennt. 
Der Vorteil der Aneinanderreihung von Befehlen in einer Zeile liegt darin, daB Speicher- 
platz eingespart wird, da der Computer weniger Zeilennummern speichern mufJ. 

Ein Beispiel: (Geben Sie vor der Programmeingabe den Befehl „NEW" ein, um ein even- 
tual noch vorhandenes Programm zu lose hen.) 

>10 A =10 : B1=2.56 : A$ = "TEXT" : PRINT B1 : PRINT A$ : PRINT A 
>RUN 

2.56 
TEXT 

10 
READY 
>■ 

Sie sehen, daB dieses Programm genauso ISuft wie das Programm, bei dem Sie alle Be- 
fehle in einzelne Zeilen geschrieben haben. Wie Sie sp&ter noch genau sehen werden, 
gibt es jedoch bei der Aneinanderreihung von Befehlen eine Einschrankung, und zwar 
die, daB man mit dem „GOTO"-Befehl eine Programmzeile von einer anderen aus an- 
springen kann. Es ist aber nicht mSglich, einen Befehl mitten in einer Programmzeile an- 
zuspringen, d. h., man muB einen Befehl, der angesprungen werden soil, in eine neue 
Basic-Programmzeile zu schreiben. 

Noch ein Wort zu den Leerzeichen in Programmzeilen: 

Prinzipiell sind zwischen Befehlen, Variablen etc. keine Leerzeichen erforderlich. 

Folgende Zeile fuhrt also genau die Befehle aus, wie die obige Zeile mit Leerzeichen: 
>10A=10:B1=2.56:A$ = "TEXT":PRINTB1:PRINTA$:PRINTA 

Ein Programm bleibt jedoch ubersichtlicher, wenn man Leerzeichen einfOgt. Der Nachteil 
ist, daB auch Leerzeichen Speicherplatz belegen. Deshalb wird man sie in langen Pro- 
grammen eher weglassen, um Speicher zu sparen. In Texten darf man die Leerzeichen 
selbstverstandlich nicht weglassen!! 

Wenn Sie dieses Handbuch bis hierin aufmerksam gelesen haben, sind Sie nun mit den 
Grundprinzipien der Basic-Programmierung recht gut vertraut. 

Was Ihnen also jetzt noch fehlt, ist einfach die Kenntnis neuer Befehle. Um Ihnen diese 
zu vermitteln, sind im Folgenden auch Teile von Dr. Hans-Joachim Sachts Buch „Gente- 
Basic leicht gelernt" sowie Teile der Anleitung fur das Genie l/ll ubernommen. Diese Bu- 
cher wurden jedoch fOr das Genie l/ll geschrieben, das eine andere Tastatur und keine 
Moglichkeit der Farbgestaltung auf einem Farbfernseher Oder Farbmonitor hat. Daher 
werden wir uns, bevor neue Programmbefehle kommen, noch kurz mit der Tastatur und 
mit den Farben des Colour-Genies beschaftigen. 

AuBerdem wird vorher noch die Benutzung des Kassettenrekorders erkldrt. 
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6- Die Tastatur 



Die Tastatur ist ein wichtiger Bestandteil Ihres Computers — sozusagen die Mensch- 
Maschine-Schnittstelle. Zusatzlich zur Tastatur bietet das Colour-Genie die MQgltchkeit, 
zwei SteuerknOppel {analog joysticks), zwei externe Tastenfelder (external keypads) und 
einen Lichtgriffel (lightpen) anzuschlieBen. Diese Eingabemittel kOnnen Sie als Zusatzge- 
rate erwerben. In jedem Falle werden Sie aber die meisten Eingaben Gber die Tastatur 
vornehmen. 

Die Tastatur des Colour-Genie ahnelt zwar einer Schreibmaschinentastatur, hat aber viele 
Sonderfunktionen. Deshalb sollten Sie sich mit den Funktionen der einzelnen Tasten ge- 
nau vertraut machen. 

Man kann 4 Tastengruppen unterscheiden, die jeweils unterschiedliche Funktionen ha- 
ben: 

— Buchstabenblock der Haupttastatur, 

— Ziffernblock der Haupttastatur, 

— Steuertasten und 

— Programmierbare Funktionstasten. 

Gehen wir zuerst die Steuertasten durch: 



RST 



Wenn beide Reset-Tasten glei'chzeitig niedergedruckt werden, wird der Com- 
puter gezwungen, in den Eingabemodus zurUckzukehren. Programm und Va- 
riablen werden dabei nicht geloscht. <Sog. „Warmstart") Die Reset-Tasten 
braucht man immer dann, wenn der Computer sich in einer Endlosschleife 
befindet, die unterbrochen werden soil (z. B. bei fehlerhaftem Einlesen einer 
Kassette). 



Wenn Sie die beiden <RST>-Tasten und die <R>-Taste zusammen 
drucken, geht der Computer zur „MEM-SIZE? ■"-Frage, genau so, als ob 
Sie den Computer neu eingeschaltet hatten. 
Programm und Variablen werden geldscht. (Sog. „Kaltstart") 

CLEAR Diese Taste loscht den Bildschirm und der Cursor springt in die linke obere 

Bildschirmecke. 

BREAK Die <BREAK>-Taste unterbricht ein Programm, die Zeile in der der Abbruch 

erfolgte wird angegeben. Z. B.: 



>10 PRINT "HALLO" 

>RUN 

HALLO 

HALLO 

HALLO 

u.s.w. <BREAK> 

Break in 10 

READY 

>■ 



GOTO 10 



Auch der „LIST"-Befehl kann mit <BREAK> abgebrochen werden. 

Die zweite Funktion der <BREAK>-Taste besteht darin, vom Feingrafik- 
Modus zum Text-Modus zuruckzukommen. 
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RPT 



RPT bedeutet Repeat, zu deutsch Wiederholung. Durch DrQcken der <RPT>- 
Taste wird das zuietzt eingegebene Zeichen solange wiederhott, bis Sie die 
<RPT>-Taste wieder loslassen. 



SHIFT Durch gleichzeitiges DrQcken der <SHIFT>- und der <@>-Taste wird ein 

Programm (oder ein Listing) „eingefroren", d. h., die AusfQhrung angehalten, 
ohne daB sich auf dem Bildschirm etwas verandert. Durch DrQcken irgend- 
einer anderen Taste wird die AusfQhrung wieder aufgenommen. 

f~ Diese Taste loscht das zuietzt eingegebene Zeichen. 

SHIFT «- <SHIFT> und <<-> zusammen gedrQckt loscht die komplette Eingabe. 

-» Tabulator-Funktion: Der Cursor springt auf die nachste Tabulatorposition auf 

dem Bildschirm (jedes 8. Zeichen). 

CTRL Control-Taste. DrQcken Sie die <CTRL>-Taste und anschlieBend eine der 

Ziffertasten von <1>. ..<8>. Sie sehen, daB alle folgenden Zeichen in der 
Farbe dargestellt werden, die auf der Vorderseite der Ziffertasten aufge- 
druckt ist. 



<CTRL> 


und 






dann 








<1> 


WHT 


white 


weiss 


<2> 


GRN 


green 


grOn 


<3> 


RED 


red 


rot 


<4> 


YEL 


yellow 


gelb 


<5> 


ORG 


orange 


orange 


<6> 


BLU 


blue 


blau 


<7> 


CYN 


cyan 


cyan (blaugrUn) 


<8> 


MAG 


magenta 


magenta (rotviolett) 



CTRL Wenn Sie <CTRL> gleichzeitig mit <MOD SEL> drQcken, schaltet der Com- 

puter in den hochaufldsenden Grafik-Modus. Als Beispiel geben Sie folgende 2 
Befehle ein: 

MOD SEL >FCOLOUR 3 : CIRCLE 80, 48, 40 

Dieser Befehl zeichnet einen orangefarbigen Kreis. 

Nun drQcken Sie <CTRL> und <MOD SEL> und der Kreis wird sichtbar! 

{Je nach Symmetrierung Ihres Fernsehers kann der Kreis aber auch als Elip- 

se dargestellt werden.) 

Wenn Sie dann <BREAK> drQcken, kehren Sie in den Text-Modus zurQck. 

RETURN Bewirkt die Ubernahme und AusfQhrung einer Eingabe. 



Ztffernblock 



JTRB. 



MM/ 



jffl 

I R I T I Y I U 



0323333 



_ I * I s t°V 1° 



Buchstabenblock 
Steuertasten 



Funktionstasten 
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MOD SEL Auch diese Taste hat mehrere Funktionen: Wenn Sie die <MOD SEL>- 
Taste und anschtieBend irgendeine Buchstabentaste drOcken, sehen Sie, daB 
nicht ein Buchstabe ausgegeben wird sondern das Grafikzeichen, das links 
auf der Vorderseite der jeweiligen Buchstabentaste aufgedruckt ist. Wollen 
Sie das rechts aufgedruckte Zeichen haben, drucken Sie <SHIFT> und 
dann die entsprechende Buchstabentaste. 

Um wieder normale Buchstaben eingeben zu kdnnen, drOcken sie einfach 
nochmals die <MOD SEL>-Taste. 

Wie schon erklart, schaltete <CTRL> <MOD SEL> in den Grafik-Modus 
um. 

Die <MOD SEL>-Taste hat aber noch eine dritte Funktion: Wenn man beim 
Einschalten des Computers die <MOD SEL>-Taste niedergedrQckt halt, wer- 
den die 4096 Bytes Speicherplatz, die sonst for die hochauflftsende Grafik 
reserviert sind, dem verfugbaren Programmspeicher beigefQgt. In diesem Fall 
stehen insgesamt 14012 Bytes zur Verf0gung{1 Byte entspricht 8 Bits, in ei- 
nem Byte kann z. B. ein Buchstabe Oder ein Befehlswort gespeichert wer- 
den). Man darf dann aber auf keinen Fall irgendwelche Befehle fur die hoch- 
auftosende Grafik ausfuhren!!! 

Wenn die <MOD SEL>-Taste beim Einschalten nicht niedergedrQckt wird, 
stehen 9916 Bytes fur ein Basicprogramm zur VerfOgung. 

SHIFT Zusammen mit anderen Steuertasten hat die <SHIFT>-Taste diverse Steuer- 

funktionen — dies ist bei den vorigen Tastenerklarungen bereits gezeigt 
worden. Ansonsten bringt die <SHIFT>-Taste, zusammen mit einer Buch- 
stabentaste gedruckt, Kleinschrift, und, zusammen mit einer Zifferntaste ge- 
drQckt, ein Sonderzeichen. 



LOCK 



s 



Dies ist genaugenommen keine Taste sondern ein Schalter. Wenn der 
<LOCK>~Schalter niedergedrQckt ist, hat das dieselbe Funktion, als wenn 
man die <SHIFT>-Taste dauernd gedrGckt halten wQrde. 
Durch nochmaliges DrOcken rastet dann der <LOCK> -Schalter wieder aus, 

Bewegt den Cursor in die ndchste Zeile (Linefeed). Linefeeds dOrfen in Be- 
fehlen nicht verwendet werden. Sinnvoll ist ihre Anwendung aber in Zeichen- 
ketten immer dann, wenn man eine Leerzeile ausgeben will. 



Steuertasten an der rechten Seite 



NeusTart, wenn zusammen rrat 2, RST-Tasie betafigt 



Dooerfynktion einer Taste 




Neustorl, *enn msommeo mft 
2. RST-Taste befatigt 



Ndchste ZiHer = Exponent' 

Weiterschaftung auf die nadiste Zeile 

Umschohurtg; 

" G^fl- Klein 

oder 

Ziffem'Sooderie«heo 

oder 

Unices - rechb Bild 



Umschadung: Buthstaben - Grafikbildw 



Ufflschallong; Ziffem - Fatten 



Umschohungi Ohne SHIFT graft oder klein 



rVogrommobbruch 




Umschahung: 
Grofi-ldein oder 
Ziffem-Sonderzeichen oder 
Unk« - reehfe Bild 
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Die programmierbaren Funktionstasten 

Rechts neben dem Haupttastaturblock befinden sich 4 Tasten, die mit F1, F2, F3 und F4 
beschriftet sind. Dies sind die 4 programmierbaren Funktionstasten des Colour-Genie. 

Solange Sie diese Tasten nicht umprogrammiert haben, sind sie mit fotgenden 8 Befeh- 
len belegt: 



ohne <SHIFT> 

<F1> LIST 

<F2> RUN 

<F3> AUTO 

<F4> EDIT 



mit <SHIFT> 

RENUM 
DELETE 
CLOAD 
CSAVE 



Wenn Sie z. B. <F2> drucken, erscheint der Befehl „RUN". DrQcken Sie <SHIFT> 
<F3> erscheint der Befehl „CLOAD". 

Wie kann man nun einen neuen Befehl auf eine Funktionstaste legen? 

Das allgemeine Format dazu ist: 

FKEY n = "Text" 

mit n = 1...8 und einer Textlange von maximal 7 Zeichen. 

Mai angenommen, Sie wollen den Befehl „GOTO" auf <F1> legen, dann sieht der Be- 
fehl zur Umprogrammierung der <F1>-Taste so aus: 

>FKEY1="GOTO" 

READY 

>■ 

DrQcken Sie <F1> und es erscheint „GOTO". 

Wenn Sie beim "FKEY"-Befehl die hinteren Anfuhrungszeichen weglassen, wird der defi- 
nierte Befehl direkt ausgefuhrt. Dies kann zum Beispiel beim „RUN" und „SYSTEM"- 
Befehl sinnvoll sein, weil danach ohnehin meist ein <RETURN> folgt. 

Zu den Buchstaben- und Zifferntasten laBt sich eigentlich nichts weiter sagen, denn die- 
se Tasten funktionieren genau wie bei einer Schreibmaschine, au&er daB <Y> und <Z> 
im Vergleich zur deutschen Tastatur vertauscht sind, und daB normalerweise groB und 
mit <SHIFT> klein geschrieben wird. 



Tastencode 


92/ 
/124 

93/ 
/125 

M /126 

95/ 
/127 


Fl 






bei IN KEY $ 


F2 






ohne/ mit 


F3 






<SHIFT> 


F4 
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7.AnschluB eines Kassettenrekorders 



Beim Ausschalten verliert des Coiour-Genie alle Programme und Daten. Daher wird man 
Programme, die man spater noch braucht, auf einer Kassette sichern. Das Colour-Genie 
schreibt und ladt mit einer recht hohen Aufzeichnungsrate von 1200 Baud, dies ent- 
spricht ca. 150 Zeichen pro Sekunde. 

Der Kassettenrekorder (nicht im Lieferumfang!) wird mit dem (mitgelieferten) Kabel an die 
DIN-Buchse hinten rechts auf der RQckseite des Computers angeschlossen. Als Rekorder 
sollten Sie einen handelsQblichen Rekorder benutzen, der die Buchsen (fQr 3.5 mm Klin- 
kenstecker) EAR (KopfhoYer) und MIC (Mikrofon) hat. 

Dabei reicht ein einfaches Monogerat ohne automatische Aussteuerung — Rauschunter- 
drOckungsschaltungen u. a. sind auf jeden Fall storend. 

Ein Bandzahlwerk ist beim Suchen von Programmen auf Kassette eine groBe Hilfe. 

Das weiBe Kabel stecken Sie in die EAR-Buchse, das schwarze Kabel in die MIC- 
Buchse. 

Als Kassetten sind gute (= Drop-out freie) Eisenoxid-Bander am besten geeignet; Chrom- 
oder gar Reineisenbander bringen keine Vorteile. 



Das Programm K abspeichern 

REC PLAY 



RETURN 



Das Programm K laden 

00000000 




PLAY 
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8-CSAVE, VERIFY, CLOAD 



Dies sind die 3 Befehle, mit denen Sie ein Basic-Program m auf die Kassette schreiben, 
eine Aufnahme verifizieren und von der Kassette laden kdnnen. 

CSAVE 

Dieser Befehl schreibt ein Programm auf die Kassette. Benutzen Sie ihn auf folgende 
Weise: 

— Spulen Sie das Band an die Stelle, an der die Aufzeichnung beginnen soli. Am An- 
fang einer Kassette achten Sie darauf, daB der nicht beschreibbare Vorspann voruber 
ist. 

— Geben Sie 

>CSAVE "N" 

ein, wobei N fQr irgendeinen Buchstaben steht, mit dem Sie der Aufzeichnung einen 
Namen geben. 

— Drucken sie gleichzeitig die PLAY- u. RECORD-Tasten Ihres Rekorders. 

— DrQcken Sie die <RETURN>-Taste. Das Programm wird nun aufgezeichnet. Von wich- 
tigen Programmen soilten Sie aus Sicherheitsgrunden mehr als eine Aufnahme ma- 
chen. 

(Sicherungskopie!!) 

VERIFY 

Dieser Befehl vergleicht ein Programm, das sich im Speicher befindet, mit einer Bandauf- 
zeichnung. Man benutzt diesen Befehl dazu, ein mit „CSAVE" aufgezeichnetes Band zu 
testen. Qehen Sie dabei folgenderma&en vor: 

— Spulen sie das Band zum Anfang der Aufnahme. 

— Geben Sie 
> VERIFY 

ein und drucken Sie die <RETURN>-Taste. 

— Drucken Sie die PLAY-Taste Ihres Rekorders. 

Wenn die Aufzeichnung gefunden ist, erscheinen in der rechten oberen Bildschirmecke 
zwei Sternchen, von denen das rechte zur Kontrolle des Ladevorgangs blinkt. 

Erfolgreiche Verifizierung endet mit der „READY"-Meldung. Sollte ein Fehler auftreten, 
meldet sich der Computer mit „BAD". In diesem Fall probieren Sie eine andere Lautstar- 
keeinstellung und verifizieren die Aufnahme erneut. Sollte dies nicht helfen, nehmen Sie 
eine andere Kassette. 
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CLOAD 

Mit diesem Befehl wird ein Basicprogramm von der Kassette in den Speicher geladen, 
wobei ein vorher evtl. im Speicher stehendes Programm gelQscht wird. Gehen Sie folgen- 
dermaBen vor: 

— Spulen Sie das Band an den Anfang der Aufzeichnung. 

— Geben Sie 

>CLOAD „N" 

ein, wobei N for den Kennzeichnungsbuchstaben steht. Wenn Sie nur CLOAD einge- 
ben, beachtet der Computer die Kennzeichnung nicht und ladt das Basicprogramm, 
welches er als nachstes auf dem Band vorfindet. 

Wird ein Programm mit einem anderen Kennzeichnungsbuchstaben gefunden, wird die- 
ser anstelle des linken Sternchens angezeigt, das falsche Programm wird nicht gela- 
den. 

Wenn das richtige Programm gefunden ist, erscheinen 2 Sternchen in der rechten 
oberen Bildschirmecke, wobei das rechte zur Kontrolle blinkt. Sollte dieses Sternchen 
nicht mehr blinken und der Computer nicht zu „READY" kommen, liegt ein Ladefehler 
vor. DrOcken Sie dann beide <RST>-Tasten und versuchen Sie das Programm mit ei- 
ner anderen Lautstarke zu laden. 

Ein Ladefehler liegt auch dann vor, wenn im Programm unverstandliche Oder falsche 
Zeilen zu finden sind. 




Korrekter Ladevorgang 
(ein Stern blinkt) 




Ladefehler 

(2 feste Sterne) 




Programmsuche 
(Programm ,K" gefunden) 
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9- Der COLOUR-Befehl 



lm 7. Kapitel haben sie bereits gelemt, daB man Qber die Tastatur mit <CTRL> + 
<1>. ,.<8> die Farbe verandem kann. Diese Anderung wirkt sich aber nur wahrend der 
Eingabe aus, in einem laufenden Programm kann man mit dieser Tastenkombination die 
Farbe nicht verSndern. 

Mit dem „COLOUR"-Befehl kann man nun innerhalb eines Programms die Farbe wech- 
seln, wobei man zwischen 16 Farben wahlen kann. 

Man kann den „COLOUR"-Befehl auch direkt eingeben: 

>COLOUR 15 

READY 

>■ 

„READY" erscheint nun in lila. 

In einem Programm sane die Verwendung z. B. so aus: 

>10 COLOUR 2 : PRINP'Ausgabe in grQn" 

>20 COLOUR 4 : PRINP'Ausgabe in orange" 

>RUN 

Ausgabe in grQn 

Ausgabe in orange 

READY 

>■ 

Folgendes Programm zeigt Ihnen alle 16 Farben des Colour-Genies: 

>10 FOR A = 1 TO 16 

>2CT COLOUR A 

>30 PRINT "Das ist Farbe Nr."; A 

>40 NEXT A 

Mit dem COLOUR-Befehl kann man beliebig oft die Farbe der ausgegebenen Zeichen 
Sndern, und so ansprechende Farbbilder auf dem Fernsehschirm erzeugen. 

Auch zum Programmieren sollten Sie sich eine Farbe aussuchen, die Ihnen gefallt und 
auf Ihrem Fernseher gut zu lesen ist. 

Die folgenden Kapitel stammen, wie bereits erwahnt, aus einem Handbuch, das fur Ge- 
nie l/ll geschrieben wurde — da das Genie l/ll keine Moglichkeit der Farbwidergabe bie- 
tet, ist in den kommenden Programmbeispielen der Colour-Befehl nicht zu finden. FOgen 
Sie ihn aber nach Belieben ein, wo es Ihnen sinnvoll erscheint. — Ohnehin sind Sie jetzt 
langsam so weit, daB Sie nicht nur die gegebenen Programmbeispiele ausprobieren, son- 
dern nun auch eigene Programme entwickeln und testen sollten! 
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10. Der PRINT-Befehl 



Der PRINT-Befehl ist der Ausgabebefehl fQr den Computer. Er weist den Computer an, 
das, was hinter dem Wort PRINT im Befehl steht, als Anzeige auf dem Bildschirm auszu- 
geben. 

Dabei gtbt es grundsatzlich zwei Mdglichketten. Folgt nach dem PRINT-Befehl ein Anfuh- 
rungszeichen, so bedeutet dies, daB anschlie&end eine Zeichenkette kommt. In diesem 
Fall wird also die komplette Zeichenkette bis zu den abschlie&enden AnfUhrungsstrichen 
zur Anzeige gebracht. 

Steht nach dem PRINT-Befehl kein AnfOhrungszeichen, betrachtet der Computer alles, 
was dann folgt, als Rechenausdruck. Er berechnet das dazugeh&rige Ergebnis und bringt 
dies zur Anzeige. 

Steht nach dem PRINT-Befehl eine Variable, wird der unter ihrem Namen abgespeicherte 
Wert ausgegeben Oder in die Rechnung mit einbezogen. 

Eine besondere Rolle nach einem PRINT-Befehl spielen die Satzzeichen Semikolon (;) 
und Komma (,), denn mit ihrer Hilfe kdnnen mehrere Ausgaben durch einen Befehl veran- 
la&t werden. 

— wird ein Semikolon zur Trennung verwendet, so wird dicht hintereinander ausgegeben, 

— bei Trennung durch ein Komma wird in Kolonnen mit jeweils 10 Zeichen Abstand an- 
gezeigt. 

Der PRINT-Befehl ohne nachfolgendes Argument erzeugt eine Leerzeile. Da der Doppel- 
punkt (:) verwendet werden kann, urn mehrere Befehle in eine Zeile zu schreiben, erge- 
ben mehrere PRINT-Befehle durch Doppelpunkte getrennt mehrere Leerzeilen. 

Der Zeilentransport nach einem PRINT-Befehl kann durch ein Semikolon am Ende der 
Zeile unterdruckt werden. 



>10 A = 25 : B = 10 
>20 PRINT A 
>30 PRINT A • 5 
>40 PRINT A / B 
>50 PRINT'A / B" 
>60 PRINT'A / B 
>RUN 

25 

125 

2.5 
A / B 
A / B 
READY 
>■ 



>10 A = 5 : 
>20 PRINT A 
>30 PRINT 
>40 PRINT A 
>50 PRINT A 
>60 PRINT B 
>RUN 
5 8 

5 

5 8 
READY 
>■ 



B = 8 
; B 



B 
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Die M&glichkeiten des PRINT-Befehls 



Bedeutung der Satzzeichen 
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Nun mdssen sie noch einige Besonderheiten bei den Trennungszeichen innerhalb von 
PRINT-Befehlen beachten. 

Bei der Ausgabe von positiven Zahlen wird vor die Zahl eine Leerstelle gesetzt, in die 
bei einer negativen Zahl das Minuszeichen kommt. Auch nach jeder Zahl erfolgt die Aus- 
gabe einer Leerstelle. 

Textstellen, die als Zeichenketten behandelt werden sollen, mQssen in AnfOhrungsstri- 
chen stehen. Alle Leerzeichen innerhalb der AnfQhrungszeichen werden auch als Leerzei- 
chen ausgegeben. Vom Computer werden vor und hinter Zeichenketten keine Leerzeichen 
gesetzt. 

1st die in einer Kolonne auszugebende Information langer als 10 Zeichen, wird in die 
nSchste Kolonne hineingeschrieben. Die nachste Ausgabe erfolgt dann beim nachstfol- 
genden Koionnenanfang. 

Wenn Sie eine Ausgabe in Kolonnen programmieren, sollten Sie sicher sein, daB niemals 
mehr als 10 Zeichen auszugeben sind. 

Sie sollten auch niemals versuchen, eine Ausgabe mit mehr als 4 Kolonnen zu program- 
mieren. Ihr Genie nimmt zwar auch mehr Kolonnen zur Ausgabe an, aber dies hat nur 
Sinn beim AnschluB eines breiten Druckers. Auf dem Bildschirm wird dann die 5. Kolon- 
ne unter der 1. gedruckt, da die Anzeige selbsttatig nach der 40. Spalte in der Spalte 1 
der neuen Zeile erfolgt. 



>LIST 

10 A = 10 : B = —12 

20 A' = "KETTE" : B$ = "MIT" 

30 PRINT A ; A ; B ; B ; A ; B 

40 PRINT A$ ; A$ ; A$ ; B$ ; A$ 

READY 

>RUN 

10 10 —12 —12 10 —12 
KETTEKETTEKETTE MIT KETTE 

Druckbild bei Engdruck 

>10 A$ = "123456789012345" 

>20 PRINT A$ ,*a$ 

>RUN 

123456789012345 123456789012345 

READY 

>■ 

Druckbild bei Kolonnendruck, maximal 15 Zeichen in einer Kolonne 
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Sie k&nnen aber auch wie mit dem Tabulator der Schreibmaschine die Anfange der Ta- 
bellenspalten selbst bestimmen. Hierzu dient die TAB(.)-Funktion. Wenn Sie in die Kiam- 
mer eine Zahl zwischen und 39 setzen und diese Funktion vor den zu druckenden Aus- 
druck schreiben, beginnt die Ausgabe erst in der durch die Zahl genannten Spalte+1. Es 
ist darauf zu achten, daB zwischen TAB und der Klammer kein Zwischenraum stehen 
darf. 

Bei Ihrem Genie gibt es dann noch einen weiteren sehr nutzlichen Befehl, mit dem die 
BHdschirmausgabe an einer beliebigen Stelle programmiert werden kann. Der Bildschirm 
des Genies zeigt 24 Zeilen mit je 40 Zeichen. Es gibt also insgesamt 960 Anzeigepositio- 
nen, die in der linken oberen Ecke mit beginnend bis 959 in der rechten unteren Ecke 
durchnumehert sind. Mit dem Befehl PRINT @ und einer nachfolgenden Ziffer k&nnen 
Sie die Ausgabe in einer (Beispiel!) beliebigen Bildschirmposition begtnnen lassen. 

Als Besonderheit kennt Ihr Genie dann noch den PRINTUSING-Befehl, mit dem die Dezi- 
malzahlen immer mit den Punkten for die Dezimaltrennung schdn untereinander ausgege- 
ben werden konnen. FOr die Benutzung dieses Befehls ist es zunachst notwendig, das 
Format der Ausgabe als Zeichenkette zu definieren. FOr jede anzuzeigende Oder zu 
druckende Stelle setzt man ein Nummernzeichen ( # ) und fOgt den Dezimalpunkt dort 
ein, wo er hingehort. Haben die auszugebenden Zahlen mehr Nachkommastellen als ge- 
wQnscht, erfolgt eine korrekte Rundung der letzten angezeigten Zahl. 

Es gibt noch eine ganze Menge weiterer Moglichkeiten, diesen Befehl fur das Schreiben 
von Dollarbetragen zu verwenden, die aber fur deutsche Verhaltnisse nicht wichtig sind. 
Beachten mOssen Sie aber das folgende: 

— Der Befehl muB genauso geschrieben werden wie in den Beispielen gezeigt; mit ei- 
nem Semikolon vor der Zahlen-Variablen. 

— Hat die Zahl mehr Vorkommastellen als formatiert, wird vor die Zahl das Prozentzei- 
chen (%) gesetzt. Die Rundung kann dann falsch sein. 

— Mehrere formatierte Ausdrucke in einer Zeile sind nach den im Beispiel gezeigten 
Methoden mdglich. 



>10 A = 99 

>20 PRINT TAB( 5 ) A 

>RUN 

99 
READY 
>■ 



TAB{ 15 ) A 
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Tabellierung mit TAB-Funktion 

READY 

>10 A = 123.456 

>20 B = 5432.1234 

>30 U$ = "###.##" 

>40 PRINT USING U$ ; A ; 

>50 PRINT USING U$ ; B ; 

>RUN 

123.46 

% 5432. 12 

READY 

>■ 

Formulierung mit PRINT USING 



>10 A = 123.456 

>20 B = 432.1267 

>30 U$ = "###.# # 

>40 PRINT USING U$ ; A 

>50 PRINT TAB( 10 ) USING U$ ; B 

>60 PRINT USING U$ ; A ; B 

>RUN 

123.46 432.13 

123.46 432.13 

READY 

>■ 

Mehrere Formatierungen in einer Zeile 
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11- Der INPUT-Befehl 



Im Gegensatz zu vielen anderen hdheren Programmiersprachen gibt es in BASIC auch ei- 
nen Befehl, mil dem wahrend des Programmlaufs Daten durch den Benutzer eingegeben 
werden kbnnen. Verwendet wird hierfur das Befehlswort INPUT. Jedesmal wenn der 
INPUT-Befehl im Programm erscheint, unterbricht der Computer den Programmablauf und 
wartet, bis uber die Tastatur eine entsprechende Eingabe erfolgt ist. Zum Zeichen fur 
den Bedienenden, da8 der Computer sich in Wartestellung befindet, erscheint auf dem 
Bildschirm ein Fragezeichen. 

Mit dem INPUT-Befehl wird immer eine Eingabe angefordert, die einer Variablen zugewie- 
sen wird. Im Programm muB darum nach dem Befehlswort INPUT auch immer der Name 
der betreffenden Variablen stehen. Ist dies eine Zahlenvariable, so nimmt Ihr Genie auch 
nur Ziffern als Eingabe an und fordert Sie mit dem Wort REDO auf, die Eingabe zu wie- 
derholen, wenn Sie versucht haben, einen Buchstaben einzutasten. Bei einer Zeichenket- 
tenvariablen im INPUT-Befehl konnen sie alte Zeichen der Tastatur eingeben. 

In einem INPUT-Befehl konnen auch mehrere Eingaben angefordert werden. Die Varia- 
blen, denen die Eingaben zugewiesen werden sollen, mussen dann durch Kommas ge- 
trennt sein. Aus diesem Grund dart das Komma und auch der Doppelpunkt innerhalb der 
Eingabe nicht verwendet werden, da sie vom Computer als Trennzeichen verwendet wer- 
den. 

Wird z. B. in einer Zahlenfolge ein Komma oder Doppelpunkt statt des vorgeschriebenen 
Dezimalpunktes verwendet, ubernimmt der Computer die Ziffern hinter dem Komma nicht 
und meldet EXTRA IGNORED. Folgt im INPUT-Befehl eine weitere Variable, wird der 
Wert nach dem Komma dieser zugewiesen. 

Ein nach einer INPUT-Aufforderung eingegebener Doppelpunkt bewirkt in jedem Fall, daB 
alles, was danach kommt, nicht ubernommen wird. 



>10 INPUT A 
>20 PRINT A 
>RUN 
? 10.65 
?? DM 

10.65 DM 
READY 
>■ 



Korrekte Eingabe 



B$ 
B$ 



>RUN 
? 10,65 
10 65 
READY 
>■ 

Zahlen nach dem Komma wurden 
der 2. Eingabe zugeordnet. 



>RUN 
? DM 
REDO 
? 123.50 
?? DM 

123.5 DM 
READY 
>■ 

Fehler bei der Eingabe. 
<Es wurde versucht, als 
erstes eihen String einzugeben). 



>RUN 
? 3 : 7 
?? TORE 
3 TORE 
READY 
>■ 

Zahl nach dem Doppelpunkt 
wurde nicht ubernommen. 
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AnfQhrungsstriche kdnnen bei Zeichenketten vorn und hinten mit eingegeben werden. Sie 
werden dann aber nicht mit gespeichert Stehen AnfQhrungsstriche inmitten einer Kette, 
werden sie wie ein anderes Zeichen behandelt. 

Wenn betm Lauf eines langeren Programms auf dem Bildschirm pidtzlich ein Fragezei- 
chen erscheint, weiB der Bediener moglicherweise gar nicht, was er eingeben soil, und 
wenn etwas Falsches eingegeben wird, kann das ganze Programm durcheinander gera- 
ten. 

Bei alteren BASIC-Versionen muBte man darum vor jedem INPUT-Befehl noch einen 
PRINT-Befehl zur Erlauterung der angeforderten Eingabe schreiben. Ihr Genie erlaubt die 
Zusammenfassung einer Ausgabe auf dem Bildschirm mit einer Eingabe. 

Hierzu ist es lediglich notwendig, die Worte, die zur Erlauterung der Eingabe auf dem 
Bildschirm geschrieben werden sollen, in AnfQhrungsstrichen sofort hinter das Befehls- 
wort INPUT zu setzen. Danach muB vor der ersten Variablen ein Semikolon stehen. Ande- 
re Trennzeichen sind nicht erlaubt. 

Auf dem Bildschirm erscheint nach den erlauternden Worten zunachst ein Fragezeichen 
und dann die eingegebenen Zeichen. 

Der Computer setzt in jedem Fall, auch wenn keine Eingabe erfolgt ist, den Programm- 
tauf fort, wenn die RETURN-Taste gedruckt wird. Mit Hilfe einer „leeren Eingabe", bei 
der eine beliebige String-Variable, die sonst nicht gebraucht wird, verwendet werden 
kann, ist es mdglich, das Programm in Wartestellung zu bringen. 



>10 INPUT A , B$ 

>20 PRINT A ; B$ 

>RUN 

? 333 

?? "Bei Issus Keiterei" 

333 Bei Issus Keilerei 
READY 
>RUN 
? 333 
?? Das ist eine "Schnapszahl" 

333 Das ist eine "Schnapszahl" 
READY 
>■ 

AnfQhrungsstriche werden nur in Zeichenketten Gbernommen, wenn sie im Innern stehen. 

>10 INPUT "Betrag eingeben" ; A 

>20 INPUT "2. Betrag eingeben" ; B 

>30 S = A + B 

>40 PRINT "Summe =" ; S 

>RUN 

Betrag eingeben? 342.67 

2. Betrag eingeben? 186.45 

Summe = 529.12 

READY 

>■ 

Zwischen ..Erlauterung" und Variabler muB ein Semikolon stehen. 
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12. der GOTO-Befehl 



Beim normalen Programmablauf wird ein Befehl nach dem anderen mit der niedrigsten 
Zeilennummer, die im Programm angesprochen wurde, beginnend, vom Computer abgear- 
beitet, bis die hdchste im Programm stehende Zeilennummer erreicht ist. Von dieser rein 
sequentiellen Befehlsverarbeitung kann man durch den Sprung-Befehl mit dem Befehls- 
wort GOTO abweichen. Dieser Befehl ist sehr einfach aufgebaut, denn hinter das Be- 
fehlswort ist nur die Zeilennummer zu setzen, in der das Programm fortgesetzt werden 
soil. 

Mit Hilfe des GOTO-Befehls kann man so zum Beispiel dafOr sorgen, daB ein Programm- 
teil mehrfach durchlaufen wird. Das Programm lauft dann in einer Schleife solange, bis 
es durch Betatigung der BREAK-Taste abgebrochen wird. 

Bei einer Schleife wird ein Rucksprung programmiert. Man kann mit GOTO aber natQrlich 
auch vorwarts, also in Richtung hdherer Zeilennummern springen. Voraussetzung fur die 
Anwendung dieses Befehls ist aber, daB die nach GOTO folgende Zeilennummer auch 
mit einem BASIC Befehl belegt ist, sonst meldet das Genie UL ERROR oder UNDEFINED 
LINE und bricht dann den Programmlauf ab. 

Es sei bereits hier darauf hingewiesen, daB man GOTO-Befehle, die einen unbedingten 
Sprung veranlassen, moglichst sparsam im Programm verwenden sollte, das hei&t, sie 
sollen nur dort benutzt werden, wo dafur ein echtes BedUrfnis, zum Beispiel zum Aufbau 
einer Schleife besteht. 

>10 INPUT A 
>20 E = E + A 
>30 PRINT , E 
>40 GOTO 10 
>RUN 
? 43 

43 
? 84 

127 
? 57 

184 
? 

241 



Programm zur laufenden Addition eingegebener Zahlen, das in einer ewigen Schleife 
ISuft und nur durch die BREAK-Taste abgebrochen werden kann. 

Achtung! BetStigen Sie bei einem derartigen Programm niemals die <RETURN>-Taste 
ohne vorherige Eingabe einer Zahl, sonst wird wie beim Beispiel die zuletzt eingegebene 
Zahl nochmal addiert. 
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1 3. Der Entscheidungsbefehl 



Die wohl wichtigsten Befehle in der gesamten Computertechnik, sind die Befehle, durch 
die bedingte SprOnge veranlaBt werden. Das bedeutet, daB die SprQnge im Programm nur 
ausgefQhrt werden, wenn eine vom Programmierer vorher definierte Bedingung vom Com- 
puter gepruft und als erfullt anerkannt wird. 

Fflr Entscheidungen kennt Ihr Genie den vielseitigen Befehl 

IF... THEN... ELSE... 
dessen englische Worte sich leicht ins Deutsche Obersetzen lassen. Sie beschreiben gut 
die Wirkung dieses Befehls: 

WENN die nachfolgende Bedingung erfullt ist 

DANN fOhre die nachfolgende Anweisung aus 

SONST arbeite mit der folgenden Anweisung weiter. 

Hinter dem Befehlswort IF muB also immer etwas stehen, was der Computer prufen 
kann. Es durfen aber nur Bedingungen formuliert werden, auf die eindeutig nur mit JA 
oder NEIN geantwortet werden kann. Dies ist der Fall, wenn zwei Ausdrucke miteinander 
verglichen werden und hierzu dienen die Vergleichsoperatoren. 

Grundsatzlich kann vor und hinter dem Vergleichsoperator entweder eine Variable, eine 
Konstante Oder auch ein Rechenausdruck stehen. Es hat naturlich wenig Sinn, vor und 
hinter den Operator jeweils eine Konstante zu setzen, denn das Ergebnis eines derarti- 
gen Vergleichs ware von vorneherein bekannt. An einer Seite sollte also immer eine Va- 
riable, deren Wert noch nicht bekannt ist, stehen, die dann vom Computer QberprQft wer- 
den soil. 

Nach dem Wort THEN konnen ein oder auch mehrere Befehle stehen, die der Computer 
ausfOhrt, wenn der Vergleich als richtig oder, wie man auch sagt, „wahr" erkannt wurde. 
Sehr oft ist es ublich, an dieser Stelle einen unbedingten Sprungbefehl einzusetzen, weil 
man dann von der Zeilennummer an, in die gesprungen wurde, beliebig viele Befehle im 
Programm anordnen kann. 

IF wenn A >10 INPUT "2 Zahlen" ; A , B 

A = B gleich B >20 IF A = B THEN PRINT "beide gleich" : END 

A <> B ungleich B >30 IF A < B THEN 50 

A > B groBer B >40 PRINT "1. Zahl gr6Ber" : GOTO 10 

A < B kleiner B >50 PRINT "2. Zahl groBer" : GOTO 10 

A > = B gr6Ber oder gleich B >RUN 

A <= B kleiner oder gleich B 2 Zahlen? 6,2 

1. Zahl groBer 
2 Zahlen? 3,8 

2. Zahl groBer 
2 Zahlen? 0.001,-10 
1 . Zahl groBer 
2 Zahlen? 33,33 
beide gleich 
READY 
>■ 



THEN 




ist, dann 


Die BASIC 


; Vergleichsoperatoren 


A = 5 


• , I 


B = 6 


A = 


B 


unwahr 


A <> 


B 


wahr 


A > 


B 


unwahr 


A < 


B 


wahr 


A > = 


B 


unwahr 


A < = 


B 


wahr 



Programm zum Vergleich zweier Zahlen. 



Ergebnisse von Vergleichen 
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Die Verwendung des Befehlswortes ELSE ist nicht zwingend vorgeschrieben. Sie kdnnen 
Entscheidungsbefehle auf Ihrem Genie also auf zwei verschiedene Arten programmieren: 

— Wenn das Wort ELSE im Befehl steht, wird bei NichterfOllung der Vergleichsbedingun- 
gen das Programm mit dem oder den diesem Wort folgenden Befehlen fortgesetzt, 

— wird das Wort ELSE nicht verwendet, fOhrt der Computer bei als unwahr erkannter Be- 
dingung die im Programm nachstfolgende Zeile aus. 

Bei der Verwendung der IF. ..THEN-Befehle mussen Sie immer daran denken, daB die 
beiden Zweige des Programms wieder zusammenlaufen mdssen. 

Die Beispiele zeigen die gleiche Aufgabe auf dreierlei Weise programmiert. Eine eingebe- 
ne Zahl wird dahingehend uberprdft, ob sie positiv oder negativ ist. Im letzten Fall wird 
sie mit —1 multipliziert, damit immer mit einem positiven Wert weitergearbeitet werden 
kann. 

Die Erfullung dieser Forderung ist einfach, wenn in den beiden Zweigen, die je nach der 
Entscheidung zu durchlaufen sind, nur wenige Befehle notig sind. Sie konnen diese dann 
in den Entscheidungsbefehl mit einbauen und das Programm lauft auf jeden Fall mit der 
nachfolgenden Zeile weiter. (Beispiel 1) 

Bei alien Entscheidungsbefehlen bietet Ihnen Ihr Genie noch die Erleichterung, daB das 
Wort GOTO unmittelbar nach THEN oder ELSE auch weggelassen werden kann. Es ge- 
nOgt die Einsetzung der Zeilennummer, zu der gesprungen werden soil. 

Wenn der Entscheidungsbefehl ohne ELSE verwendet wird, muB als letzter Befehl hinter 
THEN ein Sprung-Befehl stehen, mit dem die Befehle der NEIN-Entscheidung Qbersprun- 
gen werden. (Beispiel 3) 



Beispiel 1 



>10 INPUT "Beliebige Zahl" ; A 

>20 IF A > THEN PRINT "+" A ELSE PRINT A 

>30 PRINT "Zahl ist jetzt immer positiv" ; A 

>RUN 

Beliebige Zahl? 5 
+ 5 

Zahl ist jetzt immer positiv 5 
READY 
>RUN 

Beliebige Zahl? —7 
—7 

Zahl ist jetzt immer positiv 7 
READY 
>■ 



A = A • 



Beispiel 2 >10 INPUT "Beliebige Zahl" ; / 
>20 IF A> THEN PRINT " + ' 
>30 PRINT A : A = A • — 1 
>40 PRINT "Zahl ist jetzt immer positiv" 
>RUN 

Beliebige Zahl? —7 
—7 

Zahl ist jetzt immer positiv 7 
READY 
>■ 



A : GOTO 40 



33 



Konnen die nach THEN erforderlichen Befehle nicht im Entscheidungsbefehl unterge- 
bracht werden, verwendet man einen Sprung-Befehl zu einer hoheren Zeilennummer und 
kann danach beliebig viele Befehle schreiben, die zur Wirkung kommen, wenn der Ver- 
gleich das Ergebnts JA hatte. Man muB dann allerdings die Befehle, die bei NEIN gOltig 
sind, auch mit etnem GOTO-Befehl abschlieBen , urn die JA-Befehle zu Qberspringen. 
(Beispiel 3) 

>10 INPUT "Beliebige Zahl" ; A 

>20 IF A > THEN 50 

>30 PRINT A : A = A • — 1 

>40 GOTO 60 

>50 PRINT " + " ; A 

>60 PRINT "Zahl ist jetzt immer positiv" ; A 

>RUN 

Beliebige Zahl? 4 

+ 4 

Zahl ist jetzt immer positiv 4 

READY 

>■ 

>RUN 

Beliebige Zaht —8 

—8 

Zahl ist jetzt immer positiv 8 

READY 

>■ 

Beispiel 3 



Mit den Vergleichoperatoren konnen Sie in Genie-BASIC nicht nur Zahlen, sondern auch 
Zeichenketten miteinander vergleichen. Mit Hilfe des Gleichheitszeichens laBt sich also 
ieicht feststellen, ob zwei Strings genau gleich sind. 

Mit Hilfe der „groBer" und „kleiner" Operatoren lassen sich Zeichenketten sogar nach 
dem Alphabet sortieren. Man benutzt hier die Tatsache, daB auch Buchstaben intern im 
Computer als Zahlen abgespeichert werden. Fur die Speicherung wird der ASCII-Code 
verwendet, den Sie in der Genie-Befehlstabelle finden. Da in diesem Code dem Buchsta- 
ben A eine kleinere Zahl zugeordnet ist, als dem im Alphabet nachfolgenden Buchsta- 
ben, bedeutet der Operator „kleiner" in diesem Fall „im Alphabet vorher stehend". 

10 X$ = "HAUS" 

11 Print X$ 

20 Y$ = "HANS" 

30 IF X$<Y$ THEN A$ = X$ : B$ = Y$ : GOTO 50 

40 A$ = Y$ : B$ = X$ 

50 PRINT A$ ; "im Alphabet vor" ; B$ 

HANS im Alphabet vor HAUS 

Im Beispiel werden die beiden String-Variablen X$ und Y$ verglichen. Die Variable mit 
dem kleineren Wert wird A$ und diejenige mit dem grOBeren Wert B$ zugewiesen. Beides 
wird dann mit ErISuterung gedruckt. 
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14- Aufbau von Schleifen 



Schleifen, also gewollte Wiederholungen einzelner Programmteile, sind ein besonders 
wichtiges Hilfsmittel for eine effektive Programmierung. Wenn Sie BASIC lernen wollen, 
ist es darum sehr wichtig, daB Sie das Prinzip betm Aufbau von Schleifen richtig verste- 
hen. 

Es wurde schon von der ewigen Schleife, die nur durch BetStigung der BREAK-Taste ab- 
gebrochen werden kann, gesprochen, aber diese wird man im Programm wohl nur selten 
verwenden. Im allgemeinen muB ein gezielter Abbruch der Schleife mit programmiert wer- 
den. 

Eine Schleife mu6 immer die fotgenden Befehle enthalten: 

— Einen Befehl zum ROcksprung an den Anfang der Schleife, 

— einen Befehl, der entscheidet, ob die Bedingung zum Abbruch erfullt ist, 

— einen Befehl, der den Wert for die Abbruchbedingung bet jedem Schleifendurchgang 
andert 

— und natUrlich die Befehle, die in der Schleife verarbeitet werden sollen. 

Im Grundsatz kann man Schleifen auf zwei veschiedene Weisen aufbauen: 

— Man kann den Veranderungsbefehl an den Anfang setzen, danach kommen die eigent- 
lichen Schleifenbefehle und am SchluB wird gepruft, ob die Abbruchsbedingung erf Gilt 
ist und an den Schleifenanfang zuruckgesprungen, wenn dies nicht zutrifft. (Beispiel 1) 

— Man kann aber auch die Schleifenbefehle an den Anfang schreiben, dann den Ent- 
scheidungsbefehl setzen und danach erst den VerSnderungsbefehl und den Sprungbe- 
fehl setzen. Meist braucht man noch einen Befehl vor der Schleife zur Festlegung der 
Anfangsbedingungen. (Beispiel 2) 

In den Beispielen sind Schleifen programmiert, in denen die Zahl 7 mit den Zahlen 1 bis 
7 multipliziert wird. 



>20 A = A + 1 
>30 B = B • 7 
>40 PRINT B ; 
>50 IF A = 7 THEN END 
>60 GOTO 20 
>RUN 
7 14 21 28 35 42 49 

READY 
>■ 

Beispiel 1 



>10 A = 1 

>30 B = A • 7 

>40 PRINT B ; 

>50 IF A = 7 THEN END 

>60 A = A + 1 

>70 GOTO 30 

>RUN 

7 14 21 28 35 42 49 
READY 
>■ 

Beispiel 2 
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Sie erkennen, daB in den Beispielen die Variable A bei jedem Schleifenlauf verandert 
wird und daB die Entscheidung, ob die Schleife abgebrochen wird, von dem Wert von A 
abhangt. Man bezeichnet A darum auch als Lauf- oder Zahlvariable. 

Beim Aufbau von Schleifen mQssen Sie den Wert dieser Laufvariablen immer im Auge 
behalten. Wenn die Schleifen nicht genau wie in den Beispielen aufgebaut sind, kOnnen 
zu viel oder zu wenig Schleifendurchgange stattfinden. 

Es muB auch noch darauf hingewiesen werden, daB es manchmal zweckmaBig ist, im 
Entscheidungsbefehl eine Ungleich-Bedingung (<>) zu formulieren und dann solange 
zum Schleifenanfang zu springen, wie diese Bedingung noch erf Gilt ist. 

Bei Ihrem Genie gibt es aber noch eine besondere Kombination von Befehlsworten, mit 

denen Schleifen programmiert werden konnen. Es sind die FOR. . . NEXT-Anweisungen. 

Die voilstandig wie folgt lauten: 

Am Beginn der Schleife FOR V = X TO Y STEP Z 

am Ende der Schleife NEXT V 

Die Anwendung dieser Befehle ist ganz einfach. Zu Beginn der Schleife muB bestimmt 
werden, welche Variable als Laufvariable dienen soli. Diese wird bei jedem Schleifen- 
durchgang verandert. Die Laufvariable steht hinter dem ersten Befehlswort FOR vor dem 
Gieichheitszeichen. Dann kommt der Anfangswert der Laufvariablen, das heiBt also der 
Wert, mit dem die Schleife beginnen soil, und nach dem Befehlswort TO der Endwert, al- 
so der Wert nach dessen Erreichen die Schleife abzubrechen ist. Soli der Schritt, um den 
die Laufvariable bei jedem Schleifendurchgang zu verandern ist, nicht +1 betragen, so 
kann der gewunschte Schritt nach dem Befehlswort STEP angegeben werden. 



>10 FOR A = 1 TO 10 

>20 PRINT A ; 

>30 NEXT A 

>40 END 

>RUN 

123456789 10 
READY 
>■ 

Einfache FOR... NEXT Schleife mit 
Ausdruck der Laufvariablen. 



>10 


A = 1 






>20 


IF A = 


7 THEN 


END 


>30 


B = A 


• 7 




>40 


PRINT I 


3 ; 




>50 


A = A 


+ 1 




>60 


GOTO 20 




>RUN 






7 


14 21 


28 35 


42 


READY 






>■ 









Diese Schleife wird nur 6 mal durchlaufen, 

da der Abbruchbefehl vor den Schleifenbefeh- 
len liegt. 



>20 A = A + 1 

>30 B = A • 7 

>40 PRINT B ; 

>50 IF A <> 7 THEN 20 

>60 END 

>RUN 

7 14 21 28 35 42 49 
READY 
>■ 

Schleife wie Beispiel 1 aber 
mit Ungleich-Abfrage 



>10 B = 6 

>20 FOR A=BT0 2*B+B/2 

>30 PRINT A ; : NEXT 

>RUN 

6 7 8 9 10 11 12 13 14 15 
READY 
>■ 

FOR... NEXT Schleife mit Berechnung 
einer Grenze. 
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Als Anfangs- und Endwerte for die Laufvariable und ebenso auch fQr den Schritt kdnnen 
beliebige positive und negative Zahlen aber auch Rechenausdrucke eingesetzt werden. 
Das nebenstehende Beispiel zeigt einige hintereinanderstehende FOR . . . NEXT-Schleifen, 
bei denen immer nur die Laufvariable ausgedruckt wird. Beachten Sie das Semikolon 
nach dem Print-Befehl, das dafur sorgt, daft nach diesem Befehl kein Zeilenvorschub er- 
folgt. Damit aber vor dem Ausdruck der nachsten Schleife ein Zeilenvorschub stattfindet, 
muB jedem NEXT- ein leerer PRINT-Befehl folgen. 

Beim Genie kdnnen Sie die Laufvariable nach NEXT weglassen, wenn nur eine 
FOR. . . NEXT-Schleife geoffnet ist. Dies bedeutet, daB Sie auch mit ineinander ver- 
schachtelten Schleifen arbeiten konnen, dann aber die gultige Laufvariable hinter NEXT 
einsetzen mussen. Dabei darf die Verschachtelung nur so aufgebaut werden, wie es das 
untenstehende Bild zeigt. 

FOR. .. NEXT-Schleifen arbeiten bei Ihrem Genie so wie im Beispiel 1 auf Seite 35 dar- 
gestellt. Die Abfrage, ob die Schleifenbedingung erfullt ist, erfolgt erst am SchluB. Jede 
Schleife wird also mindestens einmal durchlaufen. 

Einspriinge in FOR. .. NEXT-Schleifen sind grundsatzlich nicht erlaubt. Wenn man dies 
versucht, meldet der Computer, wenn er auf ein NEXT ohne vorausgegangenes FOR trifft, 
NF ERROR Oder NEXT WITHOUT FOR ERROR und bricht das Programm ab. 

Bedingte Aussprunge aus Schleifen sind zulassig, kdnnen aber leicht zu Fehlern fOhren, 
wenn man nicht den Wert der Laufvariablen immer im Auge behalt. 



>10 B = 6 




>20 FOR A = 


20 TO 8 STEP —2 


>30 PRINT A 


; : NEXT : PRINT 


>40 FOR A = 


.1 TO 1.4 STEP .: 


>50 PRINT A 


; : NEXT : PRINT 


>60 FOR A = 


B TO 2*B + B / 


>70 PRINT A 


; : NEXT : PRINT 


>RUN 




20 18 16 


14 12 10 8 


.1 .3 .5 


7 .9 1.1 1.3 


6 7 8 9 


10 11 12 13 14 


READY 




>■ 





2 — 1 



F0RH- 
FORJ=- 
FORK= 



NEXTK 
NEXT J 
NEXT I 



zulassig 



[ 
[ 



FORJ * 
FORK 



NEXTK 
FORK 



NEXTK / 
NEXTJ / 



r 



FORI 

/ 
FORJ 

I 
/ 
i 

"NEXTI 

nVtJ 

\ 
\ 



unzulassig 



Verschiedene FOR... NEXT Schleifen. 



Verschachtelte Schleifen 



>10 FOR A = TO 

>20 PRINT "Schleife durchlaufen" 

>30 NEXT 

>RUN 

Schleife durchlaufen 

READY 

>■ 

Jede FOR... NEXT Schleife wird mindestens 1 mat durchlaufen. 
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15-Ein Programm entsteht 



Nun haben Sie die fOnf wichtigsten BASIC-Befehle kennengelernt und sich mit Hilfe der 
kleinen Ubungsprogramme mit Ihrem Genie vertraut gemacht. Jetzt sollen Sie lernen, wie 
man bei der Entwicklung eines fQr die Praxis nQtzlichen Programms vorgehen kann, denn 
diese 5 Befehle genugen wirklich, urn viele Aufgaben zu losen. 

Nehmen wir an, Sie mussen das Gewicht verschiedener Eisenrohre berechnen. Das geht 
zwar auch mit Hilfe eines Taschenrechners, aber Ihr Genie macht das viel komfortabler. 

Wenn man etwas berechnen will, muB man die dafur anzuwendende Formel kennen. Das 
Gewicht eines Kdrpers ist immer 
Gewicht = Grundflache mai Lange mal spez. Gewicht 

Beim Bohr entspricht die Grundflache der Flache eines Kreisringes, fQr die folgende For- 
mel gilt: 

Kreisringfiache = ° 2 ' * — d2 ' * 



Nun k6nnen Sie sich direkt an Ihr Genie setzen und mit dem Programmieren beginnen, 
denn die Programme werden in BASIC im Dialogbetrieb mit dem Computer geschrieben. 
Trotzdem ist es aber zweckmaBig, wenn man sich vorher noch Gedanken uber die zu be- 
nutzenden Variablennamen macht und diese getrennt aufschreibt. 

Hier werden zunachst gebraucht: 

GE fQr das auszurechnende Gewicht 

FL fQr die Kreisringfiache 

DA fQr den AuBendurchmesser des Rohrs 

Dl fQr den Innendurchmesser des Rohrs 

LG fQr die Rohrlange 

Nun fangt man zweckma&igerweise bei den ersten Befehlen mit einer etwas grOBeren 
Zeilennummer an, damit spater noch Befehle davor gesetzt werden konnen. FQr diese 
Aufgabe werden 3 Eingaben gefordert, fQr die INPUT-Befehle in den Zeilen 100 und 110 
geschrieben werden. (Beispiel 1) 



>100 INPUT LG 

>110 INPUT DA.DI 

>120 FL = DA*DA*3.1415 I A — DI*DI*3.1415 / 4 

>130 GE = FL • LG • 7.8 

>140 PRINT GE 

>RUN 

? 100 

? 2.54 

?? 1.97 

1574.79 
READY 
>■ 

Beispiel 1 
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Die beiden Teile der Rechenformel konnten an sich in einer Programmzeile untergebracht 
werden, wenn man die Formeln zusammenfaBt. Einfacher und besser verstandlich wird 
das Programm aber, wenn zuerst die Flache und dann das Gewicht gerechnet wird. 

In Zeile 120 wird der Variablen FL das Ergebnis des rechts neben dem Gleichheitszei- 
chen stehenden Rechenausdrucks zugewiesen. Der Ausdruck entspricht der Formel, die 
nur nach den BASIC-Regeln geschrieben wurde. Die Zahl pi ist als Konstante eingesetzt. 
Das gleiche gilt for die Zeile 130, wo der Rechenausdruck fur das Gewicht mit der Kon- 
stanten 7.8 for das spezifische Gewicht von Eisen steht. 

Nun kommt noch der PRINT-Befehl for den Ausdruck des Gewichts hinzu und dann kon- 
nen Sie mit diesem Programm schon beliebige Rohrgewichte ausrechnen. 

Damit ist das Programm aber noch nicht fertig. Wir wollen auch schon bei dieser kleinen 
Aufgabe atle Vorteile, die ein Computer gegenober einem Taschenrechner bietet, ausnut- 
zen. 

In erster Linie muB sich ein Programm selbst erklaren, denn sonst weiB man bald nicht 
mehr, was beim Erscheinen des Fragezeichens einzugeben ist. Die INPUT-Befehle erhal- 
ten darum eine Erlauterung. Dann muB klar gezeigt werden, was der Computer ausge- 
rechnet hat. Hierfur wird der PRINT-Befehl entsprechend erganzt. Da die Zahl pi mehr- 
fach gebraucht wird, ist es ratsam, den Zahlenwert von pi einer Variablen genannt PI zu- 
zuweisen und einen entsprechenden Befehl dem bisherigen Programm voranzustellen. 
Wenn dies geschehen ist, sieht das Programm wie im Beispiel 2 dargestellt aus. 



>90 PI = 3.14159 

>100 INPUT'Rohrlange in cm" ; LG 

>110 INPUT "AuBen- und Innendurchmesser" ; DA.DI 

>120 FL = DA * DA * PI / 4 — Dl * Dl • PI / 4 

>130 GE = FL • LG • 7.8 

>140 PRINT " Das Rohr wiegt" ; GE ; "g" 

>run 

Rohrlange in cm? 100 

AuBen- und Innendurchmesser? 2.54,1.97 

Das Rohr wiegt 1574.84 g 

READY 

>■ 

Beispiel 2 
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Einer der Vorteile von BASIC liegt darin, daB es verhaltnismaBig einfach ist, ein Pro- 
gramm zu andern und zu erganzen. So soil auch hier gezeigt werden, wie dieses Pro- 
gramm noch weiter ausgebaut werden kann. Es soil so erweitert werden, daB auf 
Wunsch auch eine ganze Tabelle von Rohrgewichten erstellt werden kann. 

HierfQr ist es zunachst notwendig, dem Benutzer eine Auswahlmdglichkeit for die Einzel- 
berechnung oder die Tabelle zu geben. Zu diesem Zweck werden die Befehle in den Zei- 
len 20—50 hinzugefugt. Dabei sorgt der Entscheidungsbefehl in Zeile 50 for eine erneute 
Abfrage, wenn weder E noch T eingegeben wurden. 

Entsprechend dem Befehl in Zeile 40 beginnt das Tabellenprogramm in Zeile 200 mit 
INPUT-Befehlen. FOr die Berechnung und die Ausgabe der Tabellenwerte wird eine 
FOR . . . NEXT-Schleife verwendet, die die eingegebenen Variablen verarbeitet. Hierbei ist 
darauf zu achten, daB der kleinste Durchmesser vor dem TO steht, da mit positivem 
Schritt gearbeitet wird. Zeile 260 muB etwas geandert werden, da als Lange konstant 100 
cm angenommen werden und das Gewicht in kg ausgegeben werden soil. Durch den 
PRINT-Befehl werden die Durchmesser und das Gewicht in zwei Spalten gedruckt. 

Das Programm erhalt nun noch eine Uberschrift. Die Wertzuweisung an PI, die filr beide 
Programmteile gilt, muB an den Anfang gesetzt werden, und in Zeile 150 muB ein END- 
Befehl kommen. 

Jetzt kann das Programm ausprobiert werden, und dabei entdeckt man noch zwei kletne 
Fehler. Es fehlt eine TabellenOberschrift, die vor die Schleife in Zeile 225 programmiert 
wird. AuBerdem kann es vorkommen, daB der letzte Schleifendurchgang wegfallt, weil der 
Computer beim Rechnen GD abgerundet hat. Dies wird durch Hinzufugen einer Addition 
von 0.0001 zu GD in Zeile 230 ausgeglichen.* Das fertige Programm ist als Beispiel 3 auf 
Seite 41 gezeigt. 

'Dies hangt damit zusammen, daB der Computer intern binar rechnet. Nicht jeder Dezlmalbruch hat ein genau- 
es binares Aquivalent, ebensowenig wie z. B. 0.3333333 genau 1/3 ist. 



20 PRINT'Einzelrohr ( E ) Oder Tabelle ( T ) 
30 INPUT'Kennbuchstabe" ; K$ 
40 IF K$ = "T" THEN 200 
50 IF K$ <> "E" THEN 20 

200 INPUT'Wandstarke" ; WA 

210 INPUT"gr6Bter und kleinster AuBendurchm." ; GD.KD 

220 INPUT'Stufung" ; ST 

230 FOR DA = KD TO GD STEP ST 

240 Fl = DA — WA • 2 

250 FL = ( DA* DA — DUrDI ) * PI / 4 

260 GE = FL • 100 * 7.8 * .001 

270 PRINT DA ; " / " ; Dl, GE 

280 NEXT 

5 CLS 

10 PRINP'Rohrgewichte berechnen" 

15 Pl=3. 14159 

150 END 

'Anderung des Programms Beispiel 2 
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Rohrgewichte berechnen 

Einzelrohr ( E ) Oder Tabelle ( T ) 

Kennbuchstabe? T 

Wandstarke? .25 

grOBter und kleinster AuBendurchm.?. 2,1 

Stufung? .2 

1 / .5 .459458 



1.2 / .7 


.58198 


1.4 / .9 


. 704502 


1.6 / 1.1 


.827024 


1.8 / 1.3 


.949546 


READY 




>■ 





Lauf des Programms nach Anderungen. 

5 CLS 

10 PRINT'Rohrgewichte berechnen" 

15 PI = 3. 14159 

20 PRINTEinzelrohr ( E ) oder Tabelle ( T ) 

30 INPUT'Kennbuchstabe" ; K$ 

40 IF K$ = "T" THEN 200 

50 IF K$ <> "E" THEN 20 

100 INPUT'Rohrlange in cm" ; LG 

110 INPUT'AuBen- und Innendurchmesser" ; DA.DI 

120 FL = DA • DA • PI / 4 — Dl • Dl • PI / 4 

130 GE = FL • LG • 7.8 

140 PRINT "Das Rohr wiegt" ; GE ; "g" 

150 END 

200 INPUT'Wandstarke" ; WA 

210 INPUT'groBter und kleinster AuBendurchm." ; GD.KD 

220 INPUP'Stufung" ; ST 

225 PRINT'DA / DA { cm )","Gewicht / M ( KG )" 

230 FOR DA = KD TO GD + .0001 STEP ST 

240 Dl = DA — WA • 2 

250 FL = ( DA^DA — DI*DI ) • PI / 4 

260 GE = FL * 100 * 7.8 * .001 

270 PRINT DA ; " / " ; Dl , GE 

280 NEXT 

Rohrgewicht berechnen 

Einzelrohr ( E ) Oder Tabelle ( T ) 

Kennbuchstabe? T 

Wandstarke? .4 

groBter und kleinster AuBendurchm.? 4.2,3 

Stufung? .2 



1DA / Dl < cm ) 


Gewicht 


3 / 2.2 


2.54846 


3.2 / 2.4 


2.74449 


3.4 / 2.6 


2.94053 


3.6 / 2.8 


3.13656 


3.8 / 3 


3.3326 


4 / 3.2 


3.52863 


4.2/ 3.4 


3.72467 


READY 




>■ 




Beispiel 3 
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1 6. Unterprogramme 



Auch in BASIC kann man — wie in alien anderen Programmiersprachen — die Unterpro- 
grammtechnik anwenden. Man versteht hierunter eine Programmierung, bei der gewisse, 
ofter gebrauchte Teile eines Programmes nur einmal als sogenanntes Unterprogramm ge- 
schrieben werden, das dann beliebig oft innerhalb des Gesamtprogramms aufgerufen 
werden kann. 

Unterprogramme werden mit den Befehlsworten GOSUB mit nachfolgender Zeilennummer 
aufgerufen. Die Zeilennummer muB den ersten Befehl des betreffenden Unterprogramms 
enthalten. Der Computer merkt sich die nach dem GOSUB-Befehl folgende Zeilennummer 
und setzt doit das Programm fort, wenn er im Unterprogramm den Beendigungsbefehl 
RETURN findet. 

Meist 1st es zweckmaBig, die Unterprogramme an den SchluB des Programms zu legen. 
Man muB dann allerdings dafdr sorgen, daB das Hauptprogramm durch einen END-Befehl 
abgeschlossen wird, weil sonst das erste Unterprogramm nach dem Hauptprogramm an- 
lauft und mit der Fehlermeldung RG Oder RETURN WITHOUT GOSUB beendet wird, wenn 
der Befehl RETURN gefunden wird. 

Unterprogramme kdnnen viel dazu beitragen, daB das Programm Obersichtlich bleibt. 
Wenn mehrere Blocke in einem ubergeordneten Hauptprogramm zusammengefaBt werden 
sollen, so ist hierfOr der GOSUB-Befehl besser als GOTO-Befehle. 

In BASIC werden in den Unterprogrammen die gleichen Variablen verwendet wie im 
Hauptprogramm, so daB die Ubernahme von Daten von Unterprogrammen in das Haupt- 
programm problemlos ist. 



>10 A = 3 : B = 7 

>20 E1 = 100 / A 

>30 GOSUB 300 

>40 PRINT E1, E 

>50 E1 = A / B 

>60 GOSUB 300 

>70 PRINT E1, E 

>100 END 

>300 E = INT ( E1 • 100 + .5 ) / 100 

>310 RETURN 

>RUN 

33.3333 33.33 

.428571 .43 

READY 
>■ 

Urn unndtige Nachkommastellen abzuschneiden wird nach jedem Divisionsbefehl das Un- 
terprogramm in 300 aufgerufen, in dem eine Rundung auf 2 Nachkommastellen program- 
miert ist. 
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1 7» Logische Verknupfungen 



In der Schaltungstechnik spielen logische VerknOpfungen eine groBe Rolle, und auch in 
BASIC gibt es zwei Befehle durch die jeweils zwei Oder auch mehrere Bedingungen mit- 
einander verknUpft werden kdnnen. Es gelten hierfor die Befehlsworte 

AND Bedingung erfilllt, wenn alle Teile „wahr" sind 
OR Bedingung erfGilt, wenn eins der Teile „wahr" ist 

Mit Hilfe dieser beiden Befehlsworte konnen in einem IF . . . THEN-Befehl mehrere Bedin- 
gungen formuliert werden, zwischen denen dann eins der Befehlsworte stehen muB. Im 
Programm werden alle Bedingungen gepruft. Ist die Verknupfung mit AND erfolgt, wird 
der Befehl nach THEN nur ausgefGhrt, wenn die vor und hinter AND stehende Bedingung 
erf Gilt ist. Bei OR genQgt es, wenn eine Bedingung von beiden erf Gilt ist. 

Bei der Anwendung dieser Befehlsworte muB man beachten, daB vor und hinter ihnen je- 
weils ein vollstandiger Vergleich stehen muB. Das folgende Statement ist nicht zulSssig 

IF A > 10 AND < 100 THEN 250 

DafGr muB geschrieben werden: 

IF A > 10 AND A< 100 THEN 250 



>10 INPUT A,B 

>15 PRINT"Mit" ; A ; "und" ; B 

>20 IF A > B AND 2*A > B THEN 80 

>30 IF A >B OR 2*A > THEN 90 

>40 PRINT "nicht erfOllt" 

>50 END 

>80 PRINT'beide Bedingungen erfGilt" : END 

>90 PRINT'eine Bedingung erfGilt" : END 

>RUN 

? 10,12 

Mit 10 und 12 

eine Bedingung erfOllt 

READY 

>RUN 

? 10,4 

Mit 10 und 4 

beide Bedingungen erfOllt 

READY 

>RUN 

? 10,30 

Mit 10 und 30 

nicht erfOllt 

READY 

>■ 
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Far gewisse Programmieraufgaben ist es noch wichtig, zu wissen, daB Ihr Genie intern 
eine erfoilte Bedingung mit —1 und eine nicht erfoilte Bedingung mit registriert. Man 
kann also statt 

IF A = B AND C = D AND E = F THEN... auch schreiben 
IF ( A = B ) + ( B = D ) + ( E=F ) = —3 THEN... 

Wenn nur zwei Bedingungen erfutlt zu sein brauchen, wird statt —3 einfach —2 einge- 
setzt. 



>10 INPUT A,B,C 

>20 IF ( A = 3 ) + ( B = 4 ) + ( C = 5 ) = —3 THEN 50 

>30 IF ( A = 3 ) + ( B = 4 ) + ( C = 5 ) = —2 THEN 60 

>40 IF ( A = 3 ) + ( B = 4 ) + ( C = 5 ) = —1 THEN 70 

>45 PRINT"keine Bedingung erfoilt" : END 

>50 PRINF'atle Bedingungen erfoilt" : END 

>60 PRINT"2 Bedingungen erfoilt" : END 

>70 PRINT"1 Bedingung erfoilt" : END 

>RUN 

? 3,4,5 

alle Bedingungen erfoilt 

READY 

>RUN 

? 3,4,6 

2 Bedingungen erfoilt 

READY 

>RUN 

? 3,5,6 

1 Bedingung erfoilt 

READY 

>■ 
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1 8. ON... GOTO Oder GOSUB Befehle 

Der IF.. .THEN-Befehl laBt, wie erklart wurde, immer nur zwei M6glichkeiten for die 
Fortfuhrung des Programmes zu. Wenn es gewGnscht ist, eine ganze Reihe von Moglich- 
keiten fOr die Fortsetzung eines Programms vorzusehen, k6nnen Sie hierfQr den 
ON . . . GOTO-Befehl verwenden. Die vollstandige Form dieses Befehis lautet 

ON Variable GOTO Zeilen Nr., Zeilen Nr., Zeilen Nr 

Findet der Computer diesen Befehl, so wandeit er zunachst die Varaible nach dem Wort 
ON in einen Ganzzahlwert urn. Bet Ihrem Genie kann darum auch hier ein Rechenaus- 
druck stehen. Ist das Ergebnis eine 1, so wird die erste nach dem Wort GOTO stehende 
Zeilennummer angesprungen. Bei 2 erfolgt der Sprung zur 2. Zeilennummer u.s.w. 

u.s.w Man kann also mit einem ON . . . GOTO-Befehl mehrfache Verzweigungen pro- 

grammieren. 

Statt GOTO kann in den Befehlen auch das Wort GOSUB eingesetzt werden. Es erfolgt 
dann der Einsprung in ein Unterprogramm und nach dessen Ende der ROcksprung zu der 
Zeile, die dem ON . . . GOSUB-Befehl folgt. 

Mit diesem Befehl konnen Sie leicht ein Menu, wie man ein Verzeichnis for mehrere Pro- 
grammteile zur Auswahl nennt, abfragen. Nach der Anzeige des Menus folgt ein INPUT- 
Befehl, der vom Benutzer die Eingabe einer Zahl fordert. Diese Zahl wird der Variablen 
zugewiesen, die nach ON im Verzweigungs-Befehl steht. Nach GOTO bzw. GOSUB folgen 
dann die Zeilennummern, in denen die einzelnen Programmteile beginnen. 

Wenn Sie diesen Befehl anwenden, mussen Sie aber immer dafur sorgen, da& das 
Hauptprogramm nach Beendigung der Unterprogramme richtig weiterlauft. Im Beispiel 
sorgt der Sprung- Bete hi in Zeile 140 dafur, daB das Menu neu angezeigt wird. 

>90 PRINT" SPIELAUSWAHL" 

>100 PRINT "1 = Muhle","2 = Dame" 

>110 PRINT"3 = Autorennen","4 = Sternkrieg" 

>120 INPUT A 

>130 ON A GOSUB 200,300,500,900 

>140 PRINT : PRINT'ein anderes Spiel?" : GOTO 100 

>200 PRINT'Programm fur MQhle" 

>290 RETURN 

>300 PRINT'Programm fOr Dame" 

>390 RETURN 

>500 PRINT'Programm for Autorennen" 

>800 RETURN 

>900 PRINT'Programm fur Sternkrieg" 

>2000 RETURN 

>RUN 

SPIELAUSWAHL 
1 = MOhle 2 = Dame 

3 = Autorennen 4 = Sternkrieg 

? 2 
Prog ram m for Dame 

ein anderes Spiel? 
1 = MOhle 2 = Dame 

3 = Autorennen 4 = Sternkrieg 

? ■ 
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1 9 H Fehler und Fehlersuche 



Einen nicht unerheblichen Teil der Arbeitszeit beim Programmieren muB man for die Feh- 
lerbeseitigung einkalkulieren. Vorher kommt aber die Fehlersuche, und hierfQr bietet Ihr 
Genie eine Reihe von Hilfen an. 

Eine Fehlermeldung wird entweder als Fehlercode Oder als englischer Text bei Disk- 
Betrieb auf dem Bildschirm ausgegeben, wenn der Computer bei der Abarbeitung eines 
Programme nicht weiterkommt, weil er einen Fehler entdeckt hat. Im wesentlichen geht 
es hier urn zwei Fehlerarten. 

Als Syntaxfehler werden diejenigen Fehler bezeichnet, bei denen der Computer ein in 
BASIC nicht zulassiges Sprachelement feststellt Oder bei denen eine Regel dieser Spra- 
che nicht eingehalten wurde. 

Findet Ihr Genie einen Syntaxfehler, bricht es den Programmlauf ab und meldet, in wel- 
cher Zeile der Fehler gefunden wurde. Zur Erleichterung der Korrektur wird sofort das 
EDITOR-Programm aufgerufen, und es erscheint nach der Fehlermeldung die Nummer 
der fehlerhaften Zeile. Sie kOnnen diese nun sofort mit Hilfe der EDITOR-Befehle berich- 
tigen. 

Es gibt dann noch eine ganze Reihe anderer Fehler, die der Computer feststellen und 
melden kann. Diese Fehler kbnnen aber nicht durch Korrektur in einer Zeile behoben 
werden. Zum Teil mussen neue Befehle eingefugt werden oder es ist in anderer Weise in 
das Programm einzugreifen. Der Computer beendet darum bei diesen Fehlern nur den 
Programmlauf und meldet mit READY, daB er auf direkte Eingaben wartet. 
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20. Beschreibung der 
Fehlermeldungen 



NF NEXT ohne FOR: Ein NEXT ohne entsprechendes FOR wurde benutzt. Dieser Feh- 
ler kann auch auftreten, wenn die NEXT-Variablen in verschachtelten Schleifen ver- 
tauscht wurden. 

SN Syntax-Fehler: 1st normalerweise das Ergebnis von falscher Interpunktion, offenen 
Klammern, ungtlltigen Zeichen Oder falsch geschriebenen Statements. 

RG RETURN ohne GOSUB: Ein RETURN-Statement wurde gefunden, ohne daB ein ent- 
sprechendes GOSUB existiert. 

OD Keine Daten mehr: Einem READ Oder I N PUT # -Statement stehen nicht mehr genug 
Daten zur Verfugung. Ein DATA-Statement kann vergessen worden sein oder auf 
dem Band sind schon alie Daten gelesen. 

FC lllegaler Funktionsaufruf: Es wurde der Versuch gemacht, eine Operation mit un- 
gOltigen Parametern auszufOhren. Beispiel: Quadratwurzel mit negativem Argument, 

negative Matrixdimension, Negativ- oder Null-Argumente fur LOG, usw USR- 

Aufruf, ohne die Startadresse zu POKEN. 

OV Uberlauf: Ein berechneter Wert oder eine Eingabe ist zu groB oder zu klein. Der 
Computer kann ihn nicht mehr handhaben. 

OM Kein Speicherpiatz mehr: Der gesamte Speicherplatz ist entweder benutzt oder re- 
serviert worden. Die Ursache konnen zu groBe Felddimensionen oder verschachtel- 
te Sprungbefehle wie GOTO, GOSUB und FOR-NEXT sein. Es kann aber auch 
schlicht das Program m zu lang sein. 

UL Undefinierte Zeile: Es wurde versucht, zu einer nicht existierenden Zeile zu sprin- 
gen. 

BS Dimensionen aus ihrem Bereich: Es wurde versucht, ein Feldelement anzuspre- 
chen, dessen Dimensionen Ober der im DIM-Statement angegebenen liegt. 

DD Redimensionierung: Es wurde versucht, ein Feld zu dimensionieren, das schon di- 
mensioniert ist (mit DIM oder implizit). Guter Programmierstil ist es, DIM- 
Statements an den Programmanfang zu stellen. 

/O Division durch Null: Es wurde versucht, Null als Divisor zu benutzen. 

ID lllegaler, direkter Einsatz: Es wurde versucht, das INPUT-Statement auf der 
Kommandoebene auszufOhren. 
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TM Typ stimmt nicht Qberein: Es wurde versucht, in eine Nicht-Zeichenkettenvariable 
eine Zeichenkette zu schreiben oder umgekehrt. 

OS Kein Platz mehr fur Zeichenkette: Siehe CLEAR. 

LS Zeichenkette zu lang: Eine Zeichenkette darf nur 255 Zeichen lang sein. 

ST Stringformel zu komplex: Ein Zeichenkettenformel ist zu komplex, um sie zu hand- 
haben. 

CN Kann CONT nicht ausfGhren:. Ein CONT wurde eingegeben, obwohl kein Programm 
zum Weitermachen mehr vorhanden ist. Z. B. wenn das Programm mit END abge- 
schlossen wurde oder nach EDIT. 

NR NO RESUME: Das Programmende wurde im Fehlererkennungsmodus erreicht. 

RW RESUME ohne ERROR: Ein RESUME wurde gefunden, bevor ein ON ERROR GOTO 
ausgefdhrt wurde. 

UE Nicht ausgebbarer Fehler: Es wurde versucht, einen Fehler mit nicht existierendem 
ERROR-Code mit ERROR zu simulieren. 

MO Fehlender Operand: Es wurde versucht, eine Operation auszufOhren, bei der einer 
der Operanden fehlte. 

FD Defekte Datei: Die Dateneingabe von einer externen Quelle (Kassettenrekorder 
usw.) war falsch, in der falschen Reihenfolge usw. 
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21. Der EDITOR 



'Der Editor des Colour-Genie-Systems erlaubt seinem Benutzer, die Programmzeilen, die er 
geschrieben hat, zu korrigieren, ohne sie neu eintippen zu mossen. Die Notwendigkeit 
eines Editors wird besonders bei langen, komplexen Progi&mmzeilen deutlich. In diesem 
Kapitel werden wir alle Editierungsfunktionen des Colour-Genie-Systems mit ihren Sub- 
kommandos besprechen. Wir werden unsere Erkiarungen mit vielen Beispielen verstandli- 
cher machen. Dem Benutzer wird empfohlen, jedes Editierungskommmando zu probieren, 
bevor er sich an das Schreiben von Programmen begibt. 

EDIT-Zeilennummer 

Dieses Kommando bringt den Computer von der aktiven Kommandoebene in die Editie- 
rungsebene. Der Benutzer muB abgeben, welche Zeile er editieren will. Wird keine Zeilen- 
nummer angegeben, reagiert der Rechner mit einer UL Fehlermeldung. 

Beispiel: 

EDIT 100 eroffnet Editierung von Zeile 100. 

EDIT. eroffnet Editierung der gerade eingetippten Zeile. 

Auf der Editierungsebene kann der Computer folgende Subkommandos ausfuhren: 

<RETURN>-Taste 

Wird die <RETURN>-Taste betatigt, wenn sich der Rechner im Editierungsmodus befin- 
det, so speichert er alle vorher gemachten Anderungen ab und kehrt auf die aktive Kom- 
mandoebene zurOck. 

Leertaste 

Im Editierungsmodus wird bei jeder BetStigung der Leertaste ein weiteres Zeichen in der 
editierten Zeile angezeigt. Wird eine Zahl n vor der Betatigung der Leertaste eingegeben, 
so werden n Zeichen der gerade editierten Zeile ausgegeben. 

Nehmen wir an, wir haben folgende Zeile eingegeben: 

AUTO 100 

100 IF A = B THEN 150 : A = A + 1 : GOTO 100 
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Soil nun diese Zeile 100 editiert werden, so muB der Benutzer EDIT 100 eingeben. 
>EDIT 100 

Der Computer antwortet: 
100 ■ 

Wird die Leertaste 12mal betStigt, so bewegt sich der Cursor 12 Zeichen nach rechts 
(Cursor = der Unterstrich, den der Computer hinter jedes eingegebene Zeichen setzt). 
Auf dem Schirm steht: 

100 IF A = B THE ■ 

Man muB nicht fur jedes Zeichen einzeln die Leertaste betatigen. Geben Sie 8, gefolgt 
von der Leertaste ein, erscheint folgende Zeile: 

100 IF A = B THEN 150 : ■ 

Geben Sie die 20, gefolgt von der Leertaste ein, so erscheint schlieBlich die gesamte 
Zeile: 

100 IF A = B THEN 150 : A = A + 1 : GOTO 100 ■ 

<<->-Taste 

Bewegt den Cursor ein Zeichen zurOck (entgegengesetzt zur Leertaste). Wird eine Zahl 
vor dem Betatigen der <<->-Taste etngegeben, so wird der Cursor urn den Betrag die- 
ser Zahl nach links bewegt. Entgegen der normalen Backspace-Funktion bleiben die so 
auf dem Schirm gelOschten Zeichen im Speicher erhalten. 

Beispiel: 

100 IF A = B THEN 150 A = A + 1 : GOTO 100 ■ 

Nach fOnfmaligem BetStigen der BACKSPACE-Taste: 

100 IF A = B THEN 150 : A = A + 1 : GOT ■ 

Geben Sie nun eine 10, gefolgt von der <<->-Taste ein, erscheint folgende Zeile: 

100 IF A - B THEN 150 : A = A ■ 

Nochmals betont, urn den Editierungsmodus zu verlassen, betatigen Sie die NEW LINE- 
Taste. Der Computer geht zurOck auf die aktive Kommandoebene und auf dem Schirm 
steht: 



Wenn nun noch weitere Anderungen an Zeile 100 vorgenommen werden sollen, mOssen 
Sie mit EDIT 100 in den Editierungsmodus zurOck. 
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SHIFT <T> Taste 

Wird die SHIFT und die <T>-Taste gleichzeitig betatigt, so stetlt der Computer die Aus- 
fuhrung eines vorher gestarteten Subkommandos (zum Einsetzen von Zeichen H, I, X) ein. 
Der Computer befindet sich danach weiter auf der Editierungsebene und die Position des 
Cursors bleibt unverandert. Ein anderer Weg, um die Ausfuhrung eines der Subkomman- 
dos zu beenden, ist die <RETURN>-Taste. Wird Sie betatigt, so kehrt der Computer auf 
die aktive Kommandoebene zurQck. 

H-Taste 

„H" meint trenne ab (engl. hack) und setze ein. D. h. der Rest der Zeile wird geldscht 
und an der momentanen Position des Cursors kdnnen Zeichen eingesetzt werden. 

Beispiel: 

100 IF A = B THEN 150 : A = A + 1 : GOTO 100 ■ 

Nehmen Sie an, Sie wollten A = A + 1 durch A = A + B ersetzen und das GOTO 16- 

schen. 

Zunachst gehen Sie in den Editierungsmodus mit 

EDIT 100 

Die Zahl 25, gefolgt von der Leertaste, bringt den Cursor auf die 25. Position der Zeile: 
100 IF A = B THEN 150 : A = A ■ 

Nun betatigen Sie die H-Taste und tippen + B ein. Dann betatigen Sie die < RETURN >- 
Taste und sind auf der aktiven Kommandoebene. Eine andere Mdglichkeit, die Sie im 
Editierungsbereich bleiben laBt, ist das gleichzeitige Betatigen der SHIFT- und der <T>- 
Taste. Geben Sie nun L for List ein. der Computer gtbt einmal die gesamte Zeile aus 
und der Cursor geht an den Anfang der Zeile: 

100 IF A = B THEN 150 : A = A + B ' 
100 ■ 

Alles, was nicht ausgegeben wurde, ist effektiv getoscht. 

I-Taste 

„l" meint Einsetzen (insert). Mit diesem Subkommando kdnnen Sie Zeichen an einer be- 
liebigen Position einsetzen, ohne andere Teile andern zu mOssen. 

Beispiel: 

Nehmen Sie an, Sie wollen den Befehl „PRINT A" zwischen „A = A + 1" und „GOTO 

100" in der Zeile 100 einsetzen. Die Zeile 100 soli vorher so aussehen: 

100 IF A = B THEN 150 : A = A + 1 : GOTO 100 

Mit der Leertaste bringen Sie den Cursor zur Position: 

100 IF A = B THEN 150 : A = A + 1 : ■ 



51 



Nun betatigen Sie die „I"-Taste und geben „PRINT A :" ein. Mit der SHIFT- und <T>- 
Taste verlassen Sie den Einsetzmodus (insert mode). Nun kdnnen Sie mit L die gesamte 
Zeile listen: 

100 IF A = B THEN 150 : A = A + 1 : PRINT A : GOTO 100 

100B 

Mit NEW LINE konnen Sie dann auf die aktive Kommandoebene zurOck. 

X-Taste 

„X" meint setze am Ende der Zeile ein. Der Cursor wird an das Ende der Zeile bewegt 
und der Computer geht in den Einsetzmodus. Man kann nun am Ende der Zeile hinzufU- 
gen Oder mit der <<->-Taste am Ende der Zeile Zeichen Idschen. 

Beispiel: 

In den Editierungsmodus: 

> EDIT 100 
100 ■ 

Geben Sie nun „X" (ohne <RETURN>-Taste) ein: 

100 IF A = B THEN 150 : A = A + 1 : PRINT A : GOTO 100 ■ 



An dieser Stelie kdnnen Sie neue Zeichen eingeben, schon existierende Idschen und die- 
ses Subkommando mit SHIFT und <T> verlassen. 

L-Taste 

„L" meint liste Zeile. 1st der Computer im Editierungsmodus, fuhrt aber im Moment kei- 
nes der Subkommandos H, I und X aus, so kann man mit dem L Subkommando den ver- 
bliebenen Teil der Zeile auf dem Schirm ausgeben. 

Beispiel: 
>EDIT 100 
100 ■ 

Betatigen Sie die L-Taste: 

100 IF A - B THEN 150 : A = A + 1 : PRINT A : GOTO 100 

100 ■ 

In der zweiten Zeile kdnnen Sie editieren und dabei den Ursprungstext im Auge behalten. 
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A-Ta$te 

„A" meint beginne neu {cancel and restart). Der Cursor wird wieder zum Zeilenanfang 
gebracht und alle vorher gemachten Anderungen werden geldscht. Die Zeile bleibt in ih- 
rem ursprQnglichen Zustand. 

E-Ta$te 

Dieses Kommando bringt den Computer zurQck auf die aktive Kommandoebene und tragt 
alle vorher gemachten Anderungen in der editierten Zeile ein. Der Computer darf kein 
Subkommando ausfQhren (H, I und X), wenn E eingegeben wird. 

Q-Taste 

Dieses Kommando bringt den Computer von der Editierungsebene zurQck auf die aktive 
Kommandoebene, aber loscht alle vorher gemachten Anderungen. Die Zeile bleibt in ih- 
rem ursprQnglichen Zustand. 

D-Taste 

„D" meint Idschen (delete). Wird vor D eine Zahl n eingegeben, so werden n Zeichen 
rechts von der momentanen Cursorposition geloscht. Die geldschten Zeichen werden in 
Ausrufezeichen eingeschlossen, urn zu zeigen, daB sie von der Operation betroffen stnd. 

Beispiel: 

100 IF A = B THEN 150 : A = A + 1 : PRINT A : GOTO 100 

Schalten Sie auf die Editierungsebene und bewegen Sie den Cursor mit der Leertaste in 
folgende Position: 

100 IF A = B THEN 150 : A = A + 1 ■ 

Nun geben Sie 15 D ein (zerstdre 15 Zeichen—: 

100 IF A = B THEN 150 : A = A + 1 ! : PRINT A : GO ! 

Benutzen Sie L, urn die gesamte Zeile zu listen: 

100 IF A = B THEN 150 : A = A + 1 ! : PRINT A : GO ! TO 100 

100 ■ 

Ein weiteres List bringt folgendes auf den Schirm: 

100 IF A = B THEN 150 : A = A + 1 TO 100 

100 ■ 

Urn das „TO 100" zu loschen, benutzen Sie die X-Taste und die < — >-Taste. Das Ender- 
gebnis sollte sein: 

100 IF A = B THEN 150 : A = A + 1 
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C-Taste 

„C" meint verandern (change). Wird eine Zahl n vor dem C eingegeben, so werden n Zei- 
chen rechts von der momentanen Cursorposition verandert. Wird die Zahl nicht angege- 
ben, so wird nur ein Zeichen verandert. 

Beispiel: 

100 IF A = B THEN 150 : A = A + 1 

Wollen Sie die 150 in eine 230 andern, so schalten Sie den Editierungsmodus (EDIT 100) 
ein und bewegen den Cursor mit der Leertaste in folgende Position: 

100 IF A = B THEN ■' 

Geben Sie nun ein 2C (andere 2 Zeichen), gefolgt von 23 (neue Daten). Dann verlassen 
sie das C-Subkommando mit SHIFT und <T>. Listen Sie die Zeile mit L: 

100 IF = B THEN 230 : A = A + 1 

100 ■ 

nSc 

Dieses Kommando sucht (search) nach dem n'ten Vorkommen des Zeichens c in der ge- 
rade editierten Zeile und setzt den Cursor an dessen Position. Wird n nicht angegeben, 
so wird nach dem ersten Auftreten des Zeichens c gesucht. Wird das Zeichen c nicht 
gefunden, so steht der Cursor am Ende der Zeile. Wie bei den anderen Subkommandos, 
beginnt der Rechner an der momentanen Cursorposition zu suchen. 

Beispiel: 

100 IF A = B THEN 230 : A = A + 1 

Schalten Sie auf den Editierungsmodus (> EDIT 100): 

100 ■ 

Nun geben Sie 2S = ein, um dem Computer mitzuteilen, er soil nach dem zweiten Auf- 
treten des Zeichens „ = " suchen: 

100 IF A = B THEN 230 : A ■ 

Nun kann ein anderes Subkommando aktiviert werden, um die so aufgefundenen Daten 
zu verandern. Etwa: Geben Sie H und danach = A + 2 (neue Daten) ein: 

100 IF A = B THEN 230 : A = A + 2 ■ 
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nKc 

Dieses Kommando loscht alle Zeichen bis zum n-ten Vorkommen des Zeichens c und 
setzt den Cursor an diese Stelle. 

Folgendes Beispiel: 

100 IF A = B THEN 230 : A = A + 2 

Schalten Sie auf den Editterungsmodus (> EDIT 100): 

100 ■ 

Nun geben Sie ein 1K:, um dem Computer mitzuteilen, er solle nach dem ersten Auftre- 
ten des Zeichens Doppelpunkt „:" suchen und solle alles loschen, was vor ihm in der 
Zeile steht: 

100 ! IF A = B THEN 230 ! 

Soil der Doppelpunkt noch dazu geloscht werden, geben Sie D ein: 

100 ! IF A = B THEN 230 ! ! : ! 

Um das Ergebnis zu betrachten, geben Sie L ein: (2 mal): 

100 A = A + 2 

100 ■ 
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■ Aktive Befehle 



Wenn das System zusammengestellt und der Computer eingeschaltet wird, so mQBte 
sich der Benutzer auf der aktiven Befehisebene befinden. Normalerweise erkennt man 
das daran, daB das Wort „READY", gefolgt von einem „>"-Zeichen in der nachsten Zeile 
in der oberen, linken Ecke des Schirms (Monitor oder Fernsehgerat) erscheint. Diese An- 
zeige nennen wir von nun an Fertigmeldung. 

Nun konnen Sie eines der folgenden Kommandos eingeben: 

AUTO EDIT SYSTEM 

CLEAR LIST TROFF 

CONT NEW TRON 

DELETE RUN LLIST 

Wir werden diese Kommandos im einzelnen diskutieren. Bitte beachten Sie, daB alle An- 
gaben in Klammern optional sind; angegeben werden kftnnen, aber nicht mQssen. Bei- 
spiel AUTO (Zeilennummer, Inkrement) Das konkrete Kommando sieht so aus: 

AUTO 10,5 Oder AUTO oder AUTO 10 

Wolien Sie z. B. Ihr gesamtes Programm auflisten, so geben Sie LIST ein. 

Ein Kommando wird mit der < RETURN >-Taste an den Computer abgeschickt, der es 
dann ausfOhrt. 
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AUTO (Zeilennummer, Inkrement) 

Dieses Kommando erzeugt automatisch Zeilennummern vor jeder Programmzeife, die Sie 
eingeben wollen. Die Optionen erlauben Ihnen, die Anfangszeilennummer und die Schritt- 
weite zwischen den Zeilen anzugeben. Wird nun AUTO, wie bei alien Kommandos gefolgt 
von der <RETURN>-Taste, etngegeben, so nimmt der Computer als erste Zeilennummer 
die Zahl 10 und als Schrittweite auch die 10 an. Sie konnen den Programmbefehl direkt 
nach der Zeilennummer eingeben. 



Beispiel: 

30 PRINT "HIER 



1ST ZEILE 30" 



Nach jeder Eingabe einer Programmzeile erhdht der Computer automatisch die Zeilen- 
nummer urn den im Inkrement angegebenen Betrag. Das AUTO-Kommando bleibt so lan- 
ge aktiv, bis die BREAK-Taste gedrOckt wird. StoBt der Computer im AUTO-Modus auf 
eine schon benutzte Zeile, so erschetnt ein Stern „•" rechts neben der Zeilennummer. 
Wollen Sie diese Zeile nicht neu schretben, so betatigen Sie die BREAK-Taste und sind 
damit wieder auf der Kommando-Ebene. 



Beispiel: 
READY 
>AUTO 
1 ZEILE 1 
3 ZEILE 3 
5 ZEILE 5 
7 ZEILE 7 



1, 2 



9 BREAK-Taste 



1 



RETURN 



T 



READY 
>AUTO 2, 2 
2 ZWEITE ZEILE 
4 VIERTE ZEILE 
6 SECHSTE ZEILE 
8 BREAK-Taste 



1 



RETURN 



T 



READY 

>AUTO 

10 ZEILE 10 

20 ZEILE 20 

30 ZEILE 30 

40 BREAK-Taste 



1 



RETURN 



T 



READY 

>AUTO 1, 1 

1* 

2* 

3* 

4* 

5* 



A 



RETURN 
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CLEAR (Anzahl der Bytes) 

Das CLEAR-Kommando loscht eine gewisse Zahi von Bytes und stellt sie zum Abspei- 
chern von Zeichenketten zur VerfQgung. AuBerdem werden alle numerischen Variablen 
auf Null gesetzt und leere Zeichenketten in die Zeichenkettenvariablen geschrieben. 
CLEAR 100 ordnet den Zeichenkettenvariablen 100 Bytes zu. Wenn die Fehlermeldung 
„OS" (out of stringspace) auftritt, so kann mit dem CLEAR-Kommando mehr Platz for die 
Zeichenkettenvariablen freigegeben werden. 



CONT 

Wird ein Programm durch die BREAK-Taste unterbrochen oder hat das Programm einen 
STOP-Befehl ausgefOhrt, so kann die AusfOhrung des Programms mit CONT an der Stel- 
le, an der es vorher unterbrochen wurde, wieder aufgenommen werden. 



DELETE Zeilennummer (— Zeilennummer) 

Dieses Kommando I6scht die angegebene(n) Zeile{n). 

Beispiele: 

DELETE 5 Loscht Zeile 5 

DELETE 7—10 L6scht Zeile 7, 10 und alle dazwischen 

DELETE — 12 Loscht alle Zeilen vom Programmanfang bis einschlieBlich Zeile 

12 
DELETE . Loscht die gerade eingegebene oder editierte Zeile 

EDIT-Zeilennummer 

Dieses Kommando veranla&t den Computer, von der aktiven Kommandoebene in den Edi- 
tierungsmodus uberzugehen. Die Editierungsebene erlaubt es, Zeilen im Speicher zu ver- 
andern, ohne sie neu eintippen zu miissen. Das EDIT-Kommando hat eine Relhe von 
Subkommandos, die auf der Editierungsebene ausgefOhrt werden konnen. (Siehe Kapitel 
21)Dem EDIT-Kommando muB eine gOltige Zeilennummer folgen. 

Beispiel: EDIT 20 

Schaltet urn auf die Editierungsebene, urn Zeile 20 zu untersuchen. 



LIST (Zeilennummer — Zeilennummer) 

Mit diesem Kommando veranlassen Sie den Computer, eine oder mehrere Programmzei- 
len auf dem Schirm darzustellen. LIST ohne die Optionen in Klammern schreibt das ge- 
samte Programm, daB sich momentan im Speicher befindet, heraus. Um den schnellen 
Durchlauf der Programmzeilen auf dem Schirm anzuhalten, betStigen Sie die SHIFT- und 
die @ -Taste gleichzeitig. Das Durchlaufen der Textzeilen (engl. up scrolling) wird durch 
DrOcken einer beliebigen Taste wieder gestarfet. 

Beispiele: 

LIST 3 Zeile 3 wird ausgegeben 

LIST 10 — 20 Zeile 10, 20 und alle dazwischen 

LIST — 50 von der ersten Zeile bis Zeile 50 

LIST 20 — von der Zeite 20 bis zum Programmende 

LIST . die Zeile, die gerade editiert wurde 

LIST alle Zeilen im Speicher 
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NEW 

Dieses Kommando loscht alle Programmzeilen, setzt alle numerischen Variablen auf Null 
und schreibt in alle Zeichenkettenvariablen die leere Zeichenkette. Der Speicherplatz for 
die Zeichenkettenvariablen, der mit CLEAR gesetzt wurde, wird nicht verandert. 

RUN (Zeilennummer) 

Dieses Kommando startet ein Benutzerprogramm im Speicher. Wird die Zeilennummer 
nicht angegeben, so wird das Programm in der ersten Zeile gestartet. Wird jedoch eine 
Zeitennummer angegeben, so wird das Programm in dieser Zeile gestartet. Eingabe einer 
ungtlltigen Zeilennummer fuhrt zu einer Fehlermeldung. 

Mit jedem RUN-Kommando wird automatisch auch ein CLEAR-Kommando ausgefuhrt. 

Beispiele: 

RUN 50 Starte das Programm in Zeile 50 

RUN Starte das Programm in der ersten Zeile 



SYSTEM 

Dieses Kommando bringt den Computer in den Monitor-Modus. In diesem Modus kOnnen 
Maschinenprogramme von der Kassette geladen und ausgefuhrt werden. Nach Eingabe 
des SYSTEM-Kommandos erscheint ein „•?" auf dem Schirm. Der Computer erwartet 
dann die Eingabe des Dateinamens der Maschinencodedatei (Objekt code), die er von der 
Kassette laden soil. 1st das Maschinenprogramm vollstandig geladen, so erscheint ein 
weiteres „•?". Urn das Programm nun zu starten, tippen Sie einen /, gefolgt von der 
Startadresse des Maschinenprogramms (in dezimaler Schreibweise) ein. Wird nur ein / 
eingegeben, so startet das Programm an der Adresse, die in der Datei spezifiziert wurde. 

Beim Laden erscheinen wie bei CLOAD 2 Sternchen — wird das linke zu einem „C", 
liegt ein Ladefehler (CHECKSUM ERROR) vor. 

TROFF 

Dieses Kommando schaltet die TRON-Funktion aus. Normalerweise folgt es hinter einem 
TRON. 

TRON 

Dieses Kommando schaltet die Trace-Funktion ein. Sie erlaubt es, den Ablaut eines Pro- 
gramms zur Fehlersuche zu verfolgen. Sobald der Computer eine neue Programmzeile 
ausfOhrt, wird ihre Zeilennummer in Klammern ausgegeben. 

Beispiel: 

10 PRINT" •• PROGRAMM 1 ••" 

20 A = 1 

30 IF A = 3 THEN 70 

40 PRINT A 

50 A = A + 1 

60 GOTO 30 

70 PRINT"* *ENDE VON PROGRAMM 1**" 

80 END 
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Qeben Sie ein: 

>TRON 

>RUN 

(10) •• PROGRAMM 1** 

( 20 ) ( 30 ) ( 40 ) 1 

( 50 ) ( 60 ) ( 30 ) 2 ( 70 ) • • ENDE VON PROGRAMM 1 • • 

( 80 ) 



Soil die ProgrammausfOhrung vor dem Programmende kurz unterbrochen werden, so kann 
das durch gleichzeitiges Betatigen der SHIFT- und der @ -Taste erreicht werden. Um 
fortzufahren betatigen Sie irgendeine Taste. TRON und TROFF kdnnen auch in einem 
Programm verwandt werden. 



Bei spiel: 



90 IF A = B THEN 160 
100 TRON 
110 A = B + C 
120 TROFF 



1st bei der AusfOhrung dieses Programmteils Anicht gleich B, werden Zeile 100 bis 120 
ausgefQhrt. Die Trace-Option wird eingeschaltet und das Durchlaufen des Befehls in Zei- 
le 110 wird angezeigt. Danach wird die Trace-Option durch TROFF wieder abgeschaltet. 
TRON und TROFF kGnnen nach der Fehlersuche wieder aus dem Programm entfernt wer- 
den. 

LUST 

Listet ein Programm auf dem Drucker. Dieses Kommando arbeitet genau so, wie das 
LIST-Kommando. 
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23. BASIC Programm Statements 



Wir wollen in diesem Kapitel die Programmbefehle (= Statements) unserer BASIC- 
Programmiersprache erlautern. Im ersten Teil setzen wir uns mit den Ein- und Ausgabe- 
befehlen, die dem Computer zur VerfOgung stehen, um mit der AuBenwelt in Verbindung 
zu treten, auseinander. Besonders behandelt werden solche, die mit dem Bildschirm und 
der Tastatur arbeiten und die Datenspeicherung auf der Kassette ermdglichen. 

Der zweite Teil dieses Kapitels handelt von verschiedenen Funkttonen der Programmbe- 
fehle (= Statements), die vom Video Genie System interpretiert werden. Da dies eine 
recht groBe Anzahl von Statements ist und jedes seine eigenen, charakteristischen Ei- 
genschaften hat, wird dem Benutzer nahe gelegt, jedes Statement mit Hilfe der angege- 
benen Beispiele genau zu studieren. 

Ei n- Ausg abestatements 

PRINT Item Liste 

Schreibt ein Item oder eine Itemliste auf den Schirm. Als Item wird folgendes aufgefa&t: 

a) Numerische Konstante (Zahlen wie 0, 36872, 0.2, —34) 

b) Zeichenkonstanten (Zeichen in AnfUhrungszeichen, wie etwa „VIDEO GENIE SY- 

STEM", ,,123 = $%" usw.) 

c) Zeichenvariablen (Namen, die eine Zeichenkonstante reprasentieren, wie A$, 

X$, PR$ usw.) 

d) Ausdrucke {VerknQpfungen der obigen Items, wie (X + 10)/Y Oder „COMP" 

+ „UTER" usw.) 

Die Items in der Itemliste kOnnen durch Kommas Oder Semikolons getrennt werden. Wer- 
den Kommas benutzt, so geht der Cursor automatisch zur nachsten Schreibzone, bevor 
er das Item ausgibt. Werden Semikolons benutzt, so wird kein Platz zwischen den Items 
gelassen; eines wird an das andere gehangt. Bei numerischen Items wird allerdings eine 
Leerstelle getassen. 

Beispiel: 

10 N = 25 + 7 

20 PRINT "25 + 7 IST GLEICH" ; N 

30 END 

READY 
>RUN 

25 + 7 IST GLEICH 32 
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Beispiel: 

10 H$ = "HEIM" 

20 C$ = "COMPUTER" 

30 PRINT "PROBIEREN SIE UNSEREN " ; H$ ; C$ 

40 END 

READY 
>RUN 

PROBIEREN SIE UNSEREN HEIMCOMPUTER 



Werden Kommas benutzt, um die Items zu trennen, so erzeugt der Computer 4 Spalten 
pro Zeite. Jede Spalte kann maximal 9 Zeichen enthalten. Zeichen, die darOber hinausge- 
hen, werden in die nachste Zeile geschrieben. 

Beispiel: 

10 PRINT "SPALTE 1", "SPALTE 2", "SPALTE 3", "SPALTE 4", "SPALTE 5" 
20 END 

READY 
>RUN 

SPALTE 1 SPALTE 2 SPALTE 3 SPALTE 4 
SPALTE 5 

Werden zwei Oder mehr Kommas angegeben, so erzeugt jedes 9 Leerstellen (blanks). 

Beispiel: 

10 PRINT "SPALTE 1" , ,"SPALTE 2" 
20 END 

READY 
>RUN 



SPALTE 1 



SPALTE 2 



Beachten Sie folgendes Beispiel: 

10 PRINT "ZEILE 1" 
20 PRINT "ZEILE 2" 
30 END 

READY 
>RUN 

ZEILE 1 
ZEILE 2 



10 PRINT "ZEILE 1", 
20 PRINT "ZEILE 2" 
30 END 

READY 
>RUN 

ZEILE 1 ZEILE 2 
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PRINT @ Stelle, Item List 

Dieses Statement gibt die Items der Itemliste an der angegebenen Stelle auf dem Schirm 
aus. Das „ @ "-Zeichen muB unmittelbar auf das PRINT folgen und Stelle darf Werte zwi- 
schen und 959 annehmen. 

Beispiel: 

20 PRINT @ 100, "STELLE 100" 

Wenn der Benutzer ein PRI NT-Statement eingibt, das auf die letzte Zeile des Schirms 
schreibt, wird automatisch ein Zeilenvorschub erzeugt, der alle Zeilen urn etne Position 
nach oben wandern laBt. Um dies zu unterbinden, setzen Sie ein Semikolon an das Ende 
des Statements. 

Beispiet: 

10 PRINT @ 920, "LETZTE ZEILE"; 



PRINT TAB (Ausdruck) 

Erlaubt es, den Cursor an jede beliebige Stelle in der Zeile zu setzen. Man kann mehr als 
ein TAB in einem PRINT-Statement benutzen. Doch der Wert von Ausdruck mu8 zwischen 
und einschl. 255 liegen. 

Beispiel: 

10 PRINT TAB( 10 ) "POSITION 10" TAB( 30 ) "POSITION 30" 

READY 
>RUN 

POSITION 10 POSITION 30 

10 N = 4 

20 PRINT TAB (N) "POS" ; N TAB (N + 10) "PQS" ; N + 10 TAB (N + 20) "POS" ; 

N + 20 
30 END 

READY 
>RUN 

POS 4 POS 14 POS 24 

PRINT USING Format, Item Liste 

Dieses Statement erlaubt es, Daten in einem vorher festgelegten Format auszugeben. Da- 
ten kdnnen numerische oder Zeichen ketten werte sein. 

Die Format- und Item-Liste im PRINT USING-Statement kann Variablen oder Konstanten 
enthalten. Das Statement schreibt die Items in der Form, wie es in der Formatangabe 
vorgegeben wird. 
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Die folgenden Deskriptoren kdnnen in dem Formatfeld benutzt werden: 

# Dieses Zeichen reprasentiert die richtige Steliung jeder Dezimalstelle in einer Zahl 
der Itemliste. Die Anzahl der # Zeichen bildet das erwUnschte Format. 1st das 
Formatfeld groBer als die Anzahl der Stellen in der Zahl, so werden die unbenutz- 
ten Feldpositionen links von der Zahl als Leerzeichen (blanks) und die rechts vom 
Dezimalpunkt als Nullen ausgegeben. Der Dezimalpunkt kann irgendwo in das 
durch die # Zeichen gebildete Formatfeld gesetzt werden. Werden Nachkomma- 
stellen unterdrGckt, so wird gerundet. Wird ein Komma in eine Position zwischen 
der ersten Ziffer und dem Dezimalpunkt gesetzt, so erscheint in der Ausgabe nach 
je drei Vorkommaziffern ein Komma {beachte: der Computer benutzt die angloame- 
rikanische Dezimalschreibweise, das deutsche Dezimalkomma entspricht hier dem 
Punkt). 

Beispiel: 

10 INPUT "FORMAT EINGEBEN" ; F$ 

20 IF F$ = "STOP" END 

30 INPUT "ZAHL EINGEBEN" ; N 

40 PRINT USING F$ ; N 

Dieses Programm fragt nach einer Formatliste und nach einem Item (in diesem 
Fall ein numerischer Wert). Es stoppt erst, wenn „STOP" eingegeben wird. 

Nun probieren Sie das Programm aus: 

READY 
>RUN 

FORMAT EINGEBEN ?##.## 

ZAHL EINGEBEN ? 12.34 

12.34 

FORMAT EINGEBEN ?###.## 

ZAHL EINGEBEN ? 12.34 

12.34 
FORMAT EINGEBEN ?##.## 
ZAHL EINGEBEN ? 123.45 
% 123.^5 
FORMAT EINGEBEN ? STOP 

Das %-Zeichen wird ausgegeben, wenn das angegebene Feld fur die Zahl zu klein 
ist. Die letzte Zahl links vom Dezimalpunkt wird nach dem %-Zeichen ausgegeben. 

Nun starten wir das obige Programm wieder: 

READY 
>RUN 

FORMAT EINGEBEN ?##.## 

ZAHL EINGEBEN ? 12.345 

12.35 

FORMAT EINGEBEN ? STOP 

Weil im Format nur zwei Nachkomma (bzw. Punkt)-Stellen angegeben sind, wird 
aufgerundet. 
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• • Zwei Sternchen am Anfang des Formatfeldes bewirken, daB die unbenutzten Posi- 

tioner! links vom Dezimalpunkt mit Sternchen aufgefQIlt werden. Die zwei Stern- 
chen erzeugen zwei Feldpositionen mehr. 

$$ Zwei Dollarzeichen am Anfang des Formatfeldes erzeugen ein gleitendes Dollarzei- 
chen. D.h. ein Dollarzeichen wird vor der hdchsten Stelle der Zahl ausgegeben. 

• •$ Kombiniert den Effekt von • • und $$. Jede leere Position links von der Zahl wird 

mit Sternchen aufgefQIlt und das Dollarzeichen wird vor der hdchsten Stelle der 
Zahl ausgegeben. 

Betrachten Sie das Beispielprogramm von vorhin: 

READY 
>RUN 

FORMAT EINGEBEN ?••##.## 
ZAHL EINGEBEN ? 12.3 

• • 12.3 

FORMAT EINGEBEN ?$$##.## 

ZAHL EINGEBEN ? 12.34 

$12.34 

FORMAT EINGEBEN ?**$###.## 

ZAHL EINGEBEN ? 12.34 

• ••$12.34 

FORMAT EINGEBEN ? STOP 

+ Wird ein + Zeichen am Anfang oder am Ende des Formatfeldes angegeben, so 
schreibt der Computer ein + Zeichen fur positive Zahlen und ein — Zeichen fOr 
negative Zahlen am Anfang bzw. Ende der Zahl. 

— Wird ein — Zeichen an das Ende des Formatfeldes gesetzt, so wird ein — Zei- 
chen nach jeder negativen Zahl ausgegeben und ein Leerzeichen fur positive Zah- 
len. 

Beispiet: 

READY 
>RUN 

FORMAT EINGEBEN? ####,# 
ZAHL EINGEBEN ? 12345.6 
12,346 

FORMAT EINGEBEN ? + # # . # # 

ZAHL EINGEBEN ? — 12.34 

— 12.34 

FORMAT EINGEBEN ?# # . # # + 

ZAHL EINGEBEN ? —12.34 

12.34— 

FORMAT EINGEBEN ?##.## 

ZAHL EINGEBEN ? 12.34 

12.34 

FORMAT EINGEBEN ?##.### 

ZAHL EINGEBEN ? 123456 

% 123456. 000 

FORMAT EINGEBEN ? STOP 
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%LEERZEICHEN% 

Dient zum Definieren eines Zeichenfeldes, das mehr als ein Zeichen enthalt. Die Lange 
des so formatierten Feldes ist die Zaht der Leerzeichen zwischen den Prozentzeichen 
plus 2. Ein Ausrufezeichen bringt den Computer dazu, nur das erste Zeichen einer aktuel- 
len Zeichenkette zu benutzen. 

Beispielprogramm: 

10 INPUT "FORMAT EINGEBEN" ; F$ 

20 IF F$ = "STOP" END 

30 INPUT "ZEICHENKETTE EINGEBEN" ; C$ 

40 PRINT USING F$ ; C$ 

50 GOTO 10 

Dieses Programm arbeitet ahnlich wie das vorherige, nur wird jetzt ketne numerische Va- 
riable mehr benutzt, sondern eine Zeichenkettenvariable. 

Nun starten wir das Programm: 

READY 
>RUN 

FORMAT EINGEBEN ? ! 

ZEICHENKETTE EINGEBEN ? ABCDE 

A 

FORMAT EINGEBEN ?%% 

ZEICHENKETTE EINGEBEN ? ABCDE 

FORMAT EINGEBEN ? % 

ZEICHENKETTE EINGEBEN ? ABCDEF 

ABCDE 

FORMAT EINGEBEN ? STOP 

! Mit dem Ausrufezeichen konnen Sie Zeichenketten hintereinander hangen. 

Beispiet: 

10 INPUT "GIB DREI ZEICHENKETTEN EIN" ; A$,B$,C$ 

20 PRINT "DAS ERGEBNIS IST:";:PRINT USING "!" ; A$ ; B$ ; C$ 

30 END 

READY 
>RUN 

GIB DREI ZEICHENKETTEN EIN ? ABC, XYZ, UK 
DAS ERGEBNIS IST : AXI 

GIB DREI ZEICHENKETTEN EIN ? A, COMPUTER, PROGRAMM 
DAS ERGEBNIS IST : ACP 

Benutzt man mehr als das eine Ausrufezeichen, wird der erste Buchstabe der Zeichenket- 
te mit so vielen Leerzeichen dahinter ausgedruckt, wie Leerzeichen zwischen den Ausru- 
fezeichen eingesetzt wurden. 



66 



Folgendes Beispiet: 

10 INPUT "GIB DREI ZEICHENKETTEN EIN" ; A$,B$,C$ 

20 PRINT "DAS ERGEBNIS 1ST : ";: PRINT USING "! ! !" ; A$ ; B$ ; C$ 

30 END 

READY 
>RUN 

GIB DREI ZEICHENKETTEN EIN? XYZ, FGH, ABC 
DAS ERGEBNIS 1ST : X F A 

GIB DREI ZEICHENKETTEN EIN ? A, COMPUTER, PROGRAMM 
DAS ERGEBNIS 1ST: A C P 

INPUT Itemliste 

Dieses Statement veranlaBt den Computer, die ProgrammausfOhrung zu unterbrechen und 
zu warten, bis der Benutzer Daten eines spezifizierten Typs und einer spezifizierten An- 
zahl auf der Tastatur eingegeben hat. Einzugebende Daten konnen numerisch oder Zei- 
chenketten, abhangig vom Typ der Variablen, sein. Jedes Item (wenn mehr als eins ein- 
gegeben wird) muB durch ein Komma vom anderen getrennt werden. 

Beispiel: 

10 INPUT A$, B$, A, B 

Bei AusfOhrung dieses Statements muB der Benutzer zwei Zeichenketten und zwei nume- 
rische Werte eingeben. Die Reihenfolge der Eingaben muB konsistent sein. FOhrt der 
Computer ein INPUT Statement aus, so schickt er ein Signal zum Bildschirm: 



Und wartet auf die Eingabe(n). Man kann alle vier Werte in einer Zeile eingeben (durch 
Kommas getrennt). 

In diesem Fall konnte die Eingabe wie folgt aussehen: 

BANANE , APFEL , 59, 3.14 <RETURN>-Taste 



Der Computer ordnet die Werte dann wie folgt zu: 

A$ = "BANANE" 
B$ = "APFEL" 
A = 59 
B = 3.14 
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Eine andere Methode, diese Daten einzugeben, ware es, sie in separate Zeilen aufzutei- 
len. Nach jeder Betatigung der <RETURN>-Taste erinnert Sie der Computer dann daran, 
das er noch Daten erwartet, indem er ausgibt: 

?? ■ 

bis er Werte fur alle Variablen erhalten hat. Dann geht er zum nachsten Statement uber. 
Die Eingaben mussen mit den Variablentypen kompatibel sein. Man darf also fur eine nu- 
merische Variable keine Zeichenkette eingeben. Wenn solches versucht wird, reagiert der 
Computer mit: 

? REDO 

? ■ 

und erwartet neue Daten fiir alle Variabten der Itemliste. 



Beispiel: 

10 INPUT A$, A 
20 PRINT A$, A 
30 END 

READY 
>RUN 

7STRING, 10 
STRING 10 

READY 
>RUN 



?DIES 1ST EINE ZEICHENKETTE, 13.5 
DIES 1ST EINE ZEICHENKETTE 13.5 

READY 
>RUN 

?ABCD, UK 
?REDO 
7ABCDE 
?? 25 
ABCDE 25 

Besteht eine Eingabezeichenkette nur aus Leerzeichen, so muB sie in AnfOhrungszeichen 
eingeschlossen werden. 
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Um klarer zu machen, welche Eingabe nun erwartet wird, kann man jedem INPUT- 
Statement eine Nachricht mitgeben, die ausgedruckt wird, bevor der Computer mit dem 
?-Zeichen Daten erwartet. Diese Nachricht muB dem INPUT-Statement unmittelbar folgen, 
muB in AnfQhrungszeichen eingeschlossen sein und von einem Semikolon gefolgt wer- 
den. 

Beispiel: 

10 INPUT "ART DER WARE UND STUCKZAHL" ; N$,S 

READY 
>RUN 

ART DER WARE UND STUCKZAHL ? ■ 



DATA ttemliste 

Dieses Statement erlaubt es dem Benutzer, Daten im Programm anzugeben und mit dem 
READ-Statement auf sie zuzugreifen. Auf die Daten greift der Computer sequentielt, be- 
ginnend mit dem ersten Item und endend mit dem letzten, zu. Jedes Item darf eine Zei- 
chenkette oder auch eine numerische Variable sein. Genau wie bei der Eingabe Qber die 
Tastatur, muB jede Zeichenkette, die entweder Leerzeichen oder Semikolons oder Kom- 
mas enthalt, in AnfQhrungszeichen eingeschlossen werden. 

Die Anordnung der Items im DATA-Statement muB mit dem Typ der Variablen im dazuge- 
hOrigen READ-Statement Gbereinstimmen (es darf nicht versucht werden, Zeichenketten 
in numerische Variablen zu lesen). Das DATA-Statement darf an beliebiger Stelle im Pro- 
gramm stehen. 

Beispiel: 

10 READ A$, B$, C, D 

20 PRINT A$, B$, C, D 

30 DATA"ZEICHEN", "EIN LANGER SATZ" 

40 DATA 20,137.54 

50 END 

READY 
>RUN 

ZEICHEN EIN LANGER SATZ 20 
137.54 

READ Itemliste 

Dieses Statement erlaubt es, Daten vom DATA-Statement zu lesen und Variablen zuzu- 
ordnen. Die Werte im DATA-Statement werden sequentieil vom READ-Statement gelesen. 
Sind alle Daten im ersten DATA-Statement gelesen, so liest das nachste vorkommende 
READ-Statement aus dem nachsten DATA-Statement. Sind dann alle Werte in alien 
DATA-Statements einmal gelesen und versucht danach ein READ-Statement, weitere Wer- 
te zu bekommen, so tritt ein „keine Daten mehr"-Fehler auf (out of data error) mit dem 
Code OD. 
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Beispiel: 

10 READ C$ 

20 IF C$ = "EOF" GOTO 60 

30 READ Q 

40 PRINT C$„Q 

50 GOTO 10 

60 PRINT : PRINT "ENDE DER LISTE" : END 

70 DATA BUECHER, 4, BLEISTIFTE, 5, KUGELSCHREIBER, 6 

80 DATA FUELLER, 6, TIPPEX, 7, EOF 

READY 

>RUN 



BUECHER 


4 


BLEISTIFTE 


5 


KUGELSCHREIBER 


6 


FUELLER 


6 


TIPPEX 


7 



ENDE DER LISTE 

RESTORE 

Dieses Statement erlaubt es dem n&chsten READ-Statement, das erste Item der ersten 
DATA-Liste zu lesen, auch wenn zuvor schon andere READS ausgefOhrt wurden. 

Beispiel: 

10 READ A$, A 

20 PRINT A$, A 

30 RESTORE 

40 READ B$, B 

50 PRINT B$, B 

60 DATA "JUPP SCHMITT", 25, "FRANZ SCHULZ" , 32, "DRACULA", 234 

70 END 



READY 
>RUN 

JUPP SCHMITT 25 

JUPP SCHMITT 25 



70 



PRINT #-1, Itemliste 

Dieses Statement gibt die Werte der angegebenen Variablen in Itemliste auf dem Kasset- 
tenrecorder aus. Der Recorder muB geeignet vorbereitet sein, bevor dieses Statement 
ausgefOhrt wird. NShere Informationen darOber finden Sie im Kapitel 8. 

Beispiel: 

10 A$ = "ANFANG BAND" 

20 B$ = 3.1416 

30 C$ = 50 

40 D$ = "DATEN" 

50 PRINT #-1, A$, B$, C$, D$, "ENDE DER DATEI" 

Dieses Programm weist zunachst den Variablen A$, B$, C$ und D$ Werte zu und 
schreibt sie dann auf Band. Beachten Sie, dali die Zeichenkettenkonstante „ENDE DER 
DATEI" genauso auf Band geschrieben wird, wie die Variablen. Sind die Daten einmal 
auf Band gespeichert, so konnen sie zurQckgelesen werden. Das ist im Prinzip der glei- 
che Vorgang, wie beim Abspielen einer Musikkassette. 

WICHTIG 

Die gesamte Anzahl der einzelnen Zeichen in alien Variablen und Konstanten der Itemli- 
ste eines PRINT # Statements darf 247 nicht ubersteigen. Werden mehr als 247 Zeichen 
angegeben, so werden die restlichen ignoriert. {Es zahlen auch die Kommas, die der 
Trennung einzelner Items dienen.) 

Beispiel: 

10 PRINT #-1, A$, B$, C$, D$, E$ 

Nehmen wir an, die gesamte Anzahl der Zeichen in A$, B$, C$ und D$ betragt 243 und 
E$ habe die Lange 35. E$ wird nicht auf Band gespeichert, der Versuch, E$ dann spater 
wieder einzulesen, erzeugt einen „keine Daten mehr" Fehler. (out of data error: 
Code: OD) 

Sollen numerische Variablen auf Band geschrieben werden, so sind sie mit STR$ vorher 
in Zeichenketten umzuwandeln (s. dort). 

INPUT #-1, Itemliste 

Dies Statement veranlaBt den Computer, Werte vom Rekorder zu lesen und sie in die Va- 
riablen der Itemliste zu schreiben. 

Beispiel: 

10 INPUT #-1, A$, B$, C$, D$ 

Dieses Statement liest Daten vom Rekorder. Der erste Wert wird A$ zugewiesen, der 
zweite B$ usw. Die PLAY-Taste beim Rekorder muB gedruckt sein. 

Eine „keine Daten mehr" (out of Data, Code: OD) Fehlermeldung tritt auf, wenn nicht ge- 
nug Daten for alle Variablen in der Itemliste auf Band stehen. 

Fur PRINT # umgewandelte Zahlen kfinnen mit VAL wieder in solche zurOckgewandelt 
werden. 
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24- PROGRAMM-BEFEHLE 



DEFINT Buchstabenbereich 

Variablen, die mit einem Buchstaben aus dem definierten Buchstabenbereich beginnen, 
werden als ganze Zahlen (integers) behandelt und abgespeichert. Eine Typenangabe (mit 
%, $ usw.) aber uberschreibt diese Typendefinition. Erklart man eine Variable zur ganz- 
zahiigen Variable, so spart man damit nicht nur Speicherplatz sondern auch Computer- 
zeit. Berechnungen mit ganzzahligen Variablen sind schneller als solche mit Variablen 
einfacher und doppelter Genauigkeit. Beachten Sie, daB eine ganzzahlige Variable nur 
Werte zwischen —32768 und +32767 annehmen kann. 

Beispiel: 

10 DEFINT X, Y, Z 

Hat der Computer Zeile 10 ausgefuhrt, so werden alle Variablen, die mit X, Y Oder Z an- 
fangen, als ganzzahlig behandelt. Daher sind von da an X2, X3, YA, YB, Zl, ZJ ganzzahli- 
ge Variablen. Jedoch X1#, YA#, YB#, Zl#, ZJ# bleiben Variablen doppelter Genauig- 
keit weil die Typenfestlegung mit „#" die mit DEFINT uberschreibt. 

Beispiel: 

10 DEFINT A - D 

Erklart alle Variablen, die mit A, B, C Oder D beginnen, zu ganzzahligen Variablen. 

Beachten Sie, das DEFINT zwar an beliebiger Stelle im Programm eingesetzt werden 
kann, aber es die Bedeutung von Variablen ohne explizite Typendeklaration ($, # , %) 
recht unkontrolliert andern (Sprungbefehle) kann. Deshalb sollte es normalerweise an den 
Anfang eines Programms gestellt werden. 

DEFSNG Buchstabenbereich 

Variablen, die mit einem Buchstaben aus , Buchstabenbereich' beginnen, werden als Va- 
riablen einfacher Genauigkeit behandelt. Explizite Typenfestlegung (mit # , $, %) uber- 
schreibt diese Definition. 

Variablen und Konstanten einfacher Genauigkeit werden mit 7 Stellen gespeichert und 
mit 6 Stellen ausgegeben. Alle numerischen Variablen haben einfache Genauigkeit, wenn 
nichts anderes angegeben wurde. Das DEFSNG-Statement dient vor allem dazu, Va- 
riablen neu zu definieren, die vorher als Variablen doppelter Genauigkeit oder ganzzahli- 
ge Variablen festgelegt wurden. 

Beispiel: 

10 DEFSNG A— D, Y 

Macht alle Variablen, die mit A bis D oder Y beginnen, zu Variablen einfacher Genauig- 
keit. Aber A# bleibt weiterhin eine Variable doppelter Genauigkeit und Y% bleibt eine 
ganzzahlige Variable. 
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DEFDBL Buchstabenbereich 

Variablen, die mit einem Buchstaben aus .Buchstabenbereich' beginnen, werden als Va- 
riablen doppeiter Genauigkeit behandelt und gespeichert. Eine explizite Typfestlegung 
(mit !, $, %) kann diese Definition Qberschreiben. Variablen doppeiter Genauigkeit ermog- 
lichen das Rechnen mit 17 Stellen, wovon 16 ausgegeben werden. 

Beispiel: 

10 DEFDBL M—P, G 

Macht atle Variablen, die mit M bis P oder G beginnen, zu Variablen doppeiter Genauig- 
keit. (M% oder G# bleiben unbeeinfluBt). 

DEFSTR Buchstabenbereich 

Variablen, die mit einem Buchstaben aus .Buchstabenbereich' beginnen, werden als Zei- 
chenkettenvariablen behandelt und abgespeichert. 

Explizite Typenfestlegung (mit #, !, %) uberschreibt diese Definition. Wenn genug Platz 
fOr Zeichenketten zur VerfQgung steht (siehe CLEAR), kann eine Zeichenkettenvariable bis 
zu 255 Zeichen aufnehmen. 

Beispiel: 

10 DEFSTR A— D 

Macht atle Variablen, die mit einem Buchstaben von A bis D beginnen, zu Zeichenketten- 
variablen, auBer es wurde eine explizite Typfestlegung angegeben (#, !, %). Nach der 
AusfQhrung von Zeile 10, wird folgender Ausdruck richtig: 

B3 = "EINE ZEICHENKETTE". 

CLEAR n 

Dieses Statement setzt alle Variablen auf Null. Wird eine Zahl n angegeben, so stellt der 
Computer n Bytes zur Speicherung von Zeichenketten ab. 

Wird das Video Genie System eingeschaltet, so werden jedes Mai automatisch 50 Bytes 
zur Speicherung von Zeichenketten freigesetzt. 

Das CLEAR-Statement wird dann kritisch, wenn der Computer wShrend der Programm- 
ausfuhrung auf einen „kein Platz fur Zeichenketten" (out of stringspace, Code OS) Fehler 
stoBt. Dieser Fehler tritt auf, wenn die Zeichenketten des Programms mehr Platz bean- 
spruchen, als freigegeben wurde. 

Beispiel: 

10 CLEAR 1000 

Setzt 1000 Bytes for Zeichenketten frei und lOscht alle Variablen. 
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DIM Name (dim1, ,dim n) 

Dieses Statement legt eine Variable Oder eine Liste von Variablen als Feld (array) test. 
Die Zahl der Elemente jeder Dimension kdnnen mit diml, dim2 usw. angegeben werden. 
Wird DIM nicht ausgefuhrt, so wird angenommen, das jede Dimension 11 Elemente 
hat. Die Anzahl der mdglichen Dimensionen ist nur durch den Speicherplatz begrenzt. 



Beispiel: 

10 DIM A( 5 ), B ( 3, 4 ), C (2, 3, 3 ) 

Dieses Statement definiert A als eindimensionales Feld (Vektor) mit 6 Elementen (0 bis 
5), B als zweidimensionales Feld mit 20 Elementen (4 mal 5) und C als dreidimensiona- 
les Feld mit 48 Elementen (3 mal 4 mal 4). 

DIM darf an beliebiger Stelle in das Programm gesetzt werden. Die Dimensionsangabe 
darf ganzzahlig oder ein Ausdruck sein. 

Beispiel: 

10 INPUT "ANZAHL DER PUNKTE", N 
20 DIM A( N+2, 4 ) 

Die Anzahl der Elemente von A kann, abhSngig von N, verandert werden. 

Urn ein Feld neu zu dimensionieren, muB vorher ein CLEAR-Statement ohne Argument n 

eingegeben werden, sonst wird eine Fehlermeldung ausgegeben. 

Beispiel: 

10 X( 2 )=13.6 

20 PRINT "DAS ZWEITE ELEMENT IST : " ; X( 2 ) 

30 DIM X ( 15 ) 

40 PRINT X { 2 ) 

50 END 

READY 

>RUN 

DAS ZWEITE ELEMENT IST 13.6 

? DD ERROR IN 30 

Durch den Gebrauch von X(2) in 10, vor dem DIM in 30, wurde es implizit mit DIM X(10) 
dimensioniert. 
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LET Variable = Ausdruck 

Dieses Statement ordnet einer Variablen einen Wert zu. Das Wort LET ist in einem sol- 
chen Zuordnungsstatement beim Video Genie System BASIC nicht unbedingt erforderlich, 
wurde aber in seinen Sprachumfang aufgenommen, um Kompatibilitat mit anderen Syste- 
men zu gewShrleisten. 

Beispiel: 

10 LET A = 5.67 

20 B% = 20 

30 S$ = "ZEICHEN" 

40 LET D% = D% + 1 

50 PRINT A, B%, S$,D% 

60 END 

READY 
>RUN 

5.67 20 ZEICHEN 1 

In den obigen Zuordnungen wird in die Variable rechts vom Gleichheitszeichen der Wert 
des Ausdrucks links vom Gleichheitszeichen geschrieben. Ail diese Statements sind kor- 
rekt. 

END 

Dieses Statement bewirkt die Beendigung der ProgrammausfOhrung. Das End-Statement 
wird prim&r zur Beendigung von Programmen an einer anderen Stelle als am Ende ihres 
logischen Textes eingesetzt. 

Beispiel: 



5 


B = 3 


: C = 


: 14 




10 


A = C 


+ B 






20 


GOSUB 


70 






30 


D = X 


+ Y 






40 


PRINT " 


DAS 


ERGEBNIS 


IST 


50 


PRINT A, D 






60 


END 








70 


X = 50 








80 


Y = A 


• X 






90 


RETURN 









DAS ERGEBNIS IST : 17 900 

Das END-Statement in Zeile 60 halt den Computer davon ab, Zeile 70 bis 90 auszufuh- 
ren. Damit kann das Unterprogramm, das in Zeile 70 beginnt, nur von der Zeile 20 ausge- 
fuhrt werden. 
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STOP 

Dieses Statement ist eirte groBe Hilfe bei der Fehlersuche in Programmen. Es setzt einen 
Unterbrechungspunkt (break point) in der ProgrammausfQhrung und erlaubt dann, Werte 
zu verandern oder auszugeben. FOhrt der Computer einen STOP-Befehl aus, so gibt er 
die Nachricht BREAK IN Zeilennummer (Unterbrechung in Zeile ...) aus. Mit dem aktiven 
Kommando CONT kdnnen Sie die ProgrammausfQhrung an dem Punkt, an dem vorher un- 
terbrochen wurde, wieder aufnehmen. 

Beispiel: 



5 INPUT B, 


C 




10 A = B + 


C 




20 STOP 






30 X = ( A 


+ D ) 


/ 0.74 


40 IF X < 


GOTO 


70 


50 PRINT A, 


B, C 




60 PRINT X 






70 END 






READY 






>RUN 






? 2, 4 






BREAK IN 20 






READY 






>PRINT A 






6 






READY 






>CONT 






6 2 




4 


8.10811 







Das Stop-Statement gab uns die MOglichkeit, den Wert von A zu betrachten, bevor Zeile 
30 ausgefOhrt wurde. 

GOTO Zeilennummer 

Dieses Statement Obergibt die Kontrolle Ober das Programm an die angegebene Zeile 
(Sprungbefehl). Wird es unabhangig benutzt, so wird ein unbedingter Sprung ausgefOhrt. 
Ein Bedingungsstatement kann vor das GOTO gesetzt werden, um einen bedingten 
Sprung zu erzeugen. 

Beispiel: 



10 


A = 10 








20 


B = 45 








30 


C = A 


+ 


B 




40 


C = C 


• 


3. 


4 


50 


GOTO 100 






60 










70 










80 


a 








90 


m 








10C 


I PRINT 


"A 


= 


tt 


11C 


I END 









A, "B =" ; B, "C =" 
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READY 
>RUN 

A = 10 B = 45 C = 187 

Wird Zeile 50 ausgefQhrt, so wird die Kontrolle an Zeile 100 Qbergeben. 

Beispiel: 

10 IF A = 2 GOTO 120 

Wird Zeile 10 ausgefQhrt und A ist gleich 2, dann springt der Computer zur Zeile 120. 1st 
A nicht gleich 2, geht er zum nachsten Statement. 

Man kann das GOTO auch auf der aktiven Kommandoebene als Alternative zum RUN be- 
nutzen. Mit diesem Vorgehen vermeidet man, daB die Variablen geloscht werden. 

GOSUB Zeilennummer 

Ubergibt die Kontrolle an die Zeile, in der das angegebene Unterprogramm beginnt. FOhrt 
der Computer dann in dem Unterprogramm ein RETURN-Statement aus, so kehrt er zu 
dem dem GOSUB folgenden Statement im (Haupt) Programm zurOck. Wie beim GOTO 
darf auch beim GOSUB ein Bedienungsstatement vorausgehen, wie etwa: 

IF A = B THEN GOSUB 100 

Beispiel: 

10 PRINT "HAUPTPROGRAMM" 

20 GOSUB 50 

30 PRINT "HAUPTPROGRAMM ENDE" 

40 END 

50 PRINT "UNTERPROGRAMM" 

60 RETURN 

READY 
>RUN 

HAUPTPROGRAMM 
UNTERPROGRAMM 
HAUPTPROGRAMM ENDE 

RETURN 

Dieses Statement beendet ein Unterprogramm und Obergibt die Kontrolle an das State- 
ment, das dem GOSUB folgt. Ein Fehler tritt auf, wenn for ein RETURN kein entspre- 
chendes GOSUB vorhanden war. 
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ON n GOTO Zeilennummern -Liste 

Dieses Statement erlaubt es, gleich mehrere Sprungziele anzugeben. Gesprungen wird in 
Abhangigkeit von n. Das generelle Format des ON n GOTO ist: 

ON Ausdruck GOTO 1. Zeilennummer, 2. Zeilennummer... 

Der Wert von Ausdruck muB zwischen und 255 einschl. sein. 

Wird ein ON — GOTO-Statement ausgefuhrt, so wird zunachst der ganzzahlige Anteil 
von Ausdruck berechnet (entspricht INT (Ausdruck)). Dieses Ergebnis sei n. Dann sucht 
der Computer das n te Element der Zeilennummern-Liste und springt zu dieser Zeilen- 
nummer. Ist n nun grdBer als die Anzahl der angegebenen Zeilennummern, so wird das, 
auf das ON — GOTO-Statement folgende Statement ausgefuhrt. Ist n kleiner als Null, so 
tritt ein Fehler auf. Die Zeilennummern-Liste kann eine beliebige Anzahl von Zeilennum- 
mern enthalten. 

Beispiel: 

10 INPUT "KOMMANDO EINGEBEN" ; C 

20 ON C GOTO 100, 120, 130, 150, 130 

30 PRINT "ENDE DES PROGRAMMS" : END 

100 PRINT "HIER ZEILE 100" : GOTO 10 

120 PRINT "HIER ZEILE 120" : GOTO 10 

130 PRINT "HIER ZEILE 130" : GOTO 10 

150 PRINT "HIER ZEILE 150" : GOTO 10 

READY 

>RUN 

KOMMANDO EINGEBEN? 5 

HIER ZEILE 130 

KOMMANDO EINGEBEN? 4 

HIER ZEILE 150 

KOMMANDO EINGEBEN? 1 

HIER ZEILE 100 

KOMMANDO EINGEBEN? 2 

HIER ZEILE 120 

KOMMANDO EINGEBEN? 3 

HIER ZEILE 130 

KOMMANDO EINGEBEN? 

ENDE DES PROGRAMMS 

READY 

>RUN 

KOMMANDO EINGEBEN? 4 

HIER ZEILE 150 

KOMMANDO EINGEBEN? 6 

ENDE DES PROGRAMMS 

Das ON — GOTO-Statement ist eine elegante Methode, um daB gleiche zu erreichen, 
was folgende IF-GOTO-Statements bewirken: 



10 IF C 


= 


1 GOTO 100 


20 IF C 


^ 


2 GOTO 120 


30 IF C 


= 


3 GOTO 130 


40 IF C 


= 


4 GOTO 150 


50 IF C 


= 


5 GOTO 130 


60 IF C 


< 


1 OR C > 5 GOTO 70 



REM GEHE ZUM NACHSTEN STATEMENT 
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ON n GOUSUB Zeilennummern-Liste 

Arbeitet wie ON n GOTO, nur statt der Sprunge werden Unterprogramme aufgerufen. 

Beispiel: 

10 PRINT "••FUNKTION DER UNTERPROGRAMME* • " 

20 PRINT " 1 . FUNKTION A" 

30 PRINT " 2. FUNKTION B" 

40 PRINT " 3. FUNKTION C" 

50 INPUT "GIB 1, 2 ODER 3 EIN" ; N 

60 ON N GOSUB 150, 100, 250 

70 END 

100 PRINT "HIER FUNKTION B" : RETURN 

150 PRINT "HIER FUNKTION A" : RETURN 

250 PRINT "HIER FUNKTION C" : RETURN 

READY 

>RUN 

• •FUNKTION DER UNTERPROGRAMME* • 

1. FUNKTION A 

2. FUNKTION B 

3. FUNKTION C 

GIB 1 , 2 ODER 3 EIN? 2 
HIER 1ST FUNKTION B 
READY 
>RUN 

• •FUNKTION DER UNTERPROGRAMME* • 

1. FUNKTION A 

2. FUNKTION B 

3. FUNKTION C 

GIB 1, 2 ODER 3 EIN? 1 
HIER 1ST FUNKTION A 

FOR Name = Ausdruck TO Ausdruck STEP Ausdruck 
NEXT Name 

Diese Statements bilden eine iterative Schleife. Alle Statements, die zwischen FOR und 
NEXT stehen, werden einige Male ausgefQhrt. 
Das allgemeine Format ist: 

FOR Zahler = Anfangswert TO Endwert STEP Inkrement 

• 

• 

• 

Statements 

• 

• 

• 

NEXT ZShler 

Beim FOR-Statement konnen Anfangswert, Endwert und Inkrement (Wert, urn den hoch- 
gezahlt wird) Konstanten, Variablen Oder Ausdrflcke sein. Wird das FOR-Statement das 
erste Mai ausgefOhrt, so werden sie berechnet und gespeichert. Verandern sich diese 
Werte in der Schleife, so hat das keine Auswirkungen auf die Arbeitsweise der Schleife 
selbst. Aber der Wert des Zahlers darf nicht verandert werden, sonst arbeitet die Schleife 
nicht korrekt. 
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Die FOR — NEXT-Schleife funktioniert wie folgt: 

Wird das FOR-Statement zum ersten Mai ausgefOhrt, so wird der ZShler auf den An- 
fangswert gesetzt. Das Programm wird weiter ausgefOhrt, bis ein NEXT-Statement gef un- 
der) wird. Jetzt wird der Zahler um den Wert von Inkrement, der nach dem STEP angege- 
ben wurde, erh6ht. Wird STEP und Inkrement nicht angegeben, so wird automatisch for 
Inkrement eine 1 angenommen. 1st Inkrement negativ, so wird der Zahler heruntergezahlt. 
Der Zahler wird dann mit dem Endwert des FOR-Statements verglichen. 1st der Zahler 
grOBer als der Endwert, so wird die AusfOhrung der Schleife eingestellt und die Pro- 
grammausfuhrung geht nach dem NEXT-Statement weiter. (1st Inkrement negativ, so en- 
det die AusfOhrung, wenn der Zahler kleiner als der Endwert ist). Hat der Zahler den 
Endwert noch nicht Oberschritten, so geht der Computer zurOck zum ersten Statement 
nach dem FOR-Statement. 

Beispiel: 

10 FOR K = TO 1 STEP 0.3 
20 PRINT "WERT VON K : " ; K 
30 NEXT K 
40 END 



READY 
>RUN 






DER WERT VON 
DER WERT VON 
DER WERT VON 
DER WERT VON 


K 
K 
K 
K 



.3 
.6 
.9 



Dann ist K = 1.2 und damit grd&er als der Endwert 1. Deshalb endet die Schleife dort 
und druckt 1.2 nicht mehr. 

Beispiel: 

10 FOR N = 5 TO 

20 PRINT "DER WERT VON N : " ; N 

30 NEXT N 

40 END 

READY 

>RUN 

DER WERT VON N : 5 

10 FOR N = 5 TO STEP —1 

20 PRINT "DER WERT VON N : " ; N 

30 NEXT N 

40 END 

READY 

>RUN 

DER WERT VON N : 5 

DER WERT VON N : 4 

DER WERT VON N : 3 

DER WERT VON N : 2 

DER WERT VON N : 1 

DER WERT VON N : 

Wird kein Step angegeben, so wird automatisch STEP 1 angenommen. N wird das erste 
Mai hochgezahlt, wird zu N = 6 und ist damit groBer als der Endwert 0; die Schleife en- 
det. Der Vorgang verlauft anders, wenn STEP —1 angegeben wurde (s. o.) 
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Beispiel: 



10 FOR A 


= - 


TO 


3 


20 PRINT " 


DER 


WERT VON A 


30 NEXT 








40 END 








READY 








>RUN 








DER WERT 


VON 


A 


: 


DER WERT VON 


A 


: 1 


DER WERT 


VON 


A 


: 2 


DER WERT VON 


A 


: 3 



Statt NEXT A konnen wir wie in Zeile 30, auch einfach NEXT schreiben. Bei der Pro- 
grammierung von verschachtelten FOR NEXT-Schleifen ist es jedoch gOnstig, anzugeben, 
welche Schleife man nun mit dem konkreten NEXT abgeschlossen hat. 

Hier ist ein Beispiel fQr geschachtelte Schleifen, daB zeigen soil, wie man den ZShler in 
jedem NEXT-Statement identifiziert: 

10 I = 1 

20 J = 2 

30 K = 3 

40 FOR N = 1 + 1 TO J + 1 

50 PRINT "ERSTE SCHLEIFE" 

FOR M = 1 TO K 

70 PRINT "ZWEITE SCHLEIFE" 

80 NEXT M 

90 NEXT N 

100 END 

READY 
>RUN 

ERSTE SCHLEIFE 
ZWEITE SCHLEIFE 
ZWEITE SCHLEIFE 
ZWEITE SCHLEIFE 
ERSTE SCHLEIFE 
ZWEITE SCHLEIFE 
ZWEITE SCHLEIFE 
ZWEITE SCHLEIFE 

ERROR Code 

Dieses Statement wird benutzt, um in eine ON ERROR GOTO Routine zu verzweigen. 
FOhrt der Computer ein ERROR-Code-Statement aus, so verhalt er sich genau so, als 
ware dieser Fehler aufgetreten. Er simuliert die Fehlersituation. 

Beispiel: 

30 ERROR 1 

READY 
>RUN 



? NF ERROR IN 30 
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ON ERROR GOTO Zeiiennummer 

Dieses Statement erlaubt es, ein Abfangprogramm fur Fehler (engl. error trapping routine) 
aufzurufen. Damit kann man, kommt es bei der ProgrammausfOhrung zu einem Fehler, er- 
reichen, daB das Programm nicht mit einer Fehlermeldung anhalt, sondern in ein Pro- 
gramm verzweigt, das die Ursache des Fehlers erkennt und beseitigt. Meist hat der Benut- 
zer einen bestimmten Fehlertyp im Auge, wenn er das ON ERROR GOTO Statement ver- 
wendet. Fuhrt das Programm z. B. eine Division durch und der Fall der Division durch 
Null ist nicht von vomherein ausgeschlossen worden, so kann die verbotene Division 
durch Null mit einem Fehlerbehandlungs-Programm abgehandett werden. 

Beispiel: 

5 B = 15 : C = 

10 ON ERROR GOTO 120 

20 A = B / C 

30 PRINT A, B, C 

40 END 

120 PRINT "MAN DARF NICHT DURCH NULL TEILEN ! I " 

130 RESUME 40 

READY 
>RUN 

MAN DARF NICHT DURCH NULL TEILEN ! ! 

In diesem Beispiel hat C den Wert und in Zejle 20 kommt es zu einer Division durch 
Null, was normalerweise eine Fehlermeldung und Beendigung des Programms zur Folge 
hatte. Wegen Zeile 10 ignoriert der Computer aber diese Situation einfach und geht in 
die Zeile 120, zur Fehlerbehandlungsroutine. Beachten Sie, daB das ON ERROR GOTO 
Statement vor dem moglichen Auftreten des Fehlers stehen muB, sonst hat es keine Wir- 
kung. AuBerdem muB die Fehlerbehandlungsroutine mit RESUME abgeschlossen werden. 

RESUME Zeiiennummer 

Dieses Statement beendet eine Fehlerbehandlungsroutine und gibt an, wo die normale 
Programmausfuhrung weiter gehen soil. 

RESUME oder RESUME ohne Zeiiennummer bewirkt, daB der Computer zu dem State- 
ment zuruckkehrt, in dem es zu einem Fehler gekommen war. Ist eine Zeiiennummer an- 
gegeben, so geht er zu dieser Zeile zuruck. 

RESUME NEXT veranlaBt den Computer, zu dem Befehl zuruck zu gehen, der hinter dem 
Befehl steht, in dem der Fehler erkannt wurde. 

Beispiel: 

10 ON ERROR GOTO 80 

20 PRINT "EINFACHE DIVISION." 

30 INPUT "GIB ZWEI ZAHLEN EIN" ; A, B 

40 IF A = END 

50 C = A / B 

60 PRINT "DER QUOTIENT IST : " ; C 

70 GOTO 20 

80 PRINT "VERSUCH, DURCH NULL ZU TEILEN" 

90 PRINT "VERSUCH EN SIE ES NOCH EINMAL..." 

100 RESUME 20 
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READY 
>RUN 

EINFACHE DIVISION 

GIB ZWEI ZAHLEN EIN? 6, 2 

DER QUOTIENT 1ST : 3 

EINFACHE DIVISION 

GIB ZWEI ZAHLEN EIN? 7,3 

DER QUOTIENT 1ST : 2.33333 

EINFACHE DIVISION 

GIB ZWEI ZAHLEN EIN? 5, 

VERSUCH, DURCH NULL ZU TEILEN 

VERSUCHEN SIE ES NOCH EINMAL... 

EINFACHE DIVISION 

GIB ZWEI ZAHLEN EIN? 9, 4 

DER QUOTIENT 1ST : 2.25 

EINFACHE DIVISION 

GIB ZWEI ZAHLEN EIN? 0, 

REM 

REM gibt FuBnoten an. Dieses Statement informiert den Computer, daB in dieser Zeile 
nur noch Kommentare folgen. Diese werden im Programmablauf ignoriert. Es erm6glicht 
dem Benutzer, durch die Kommentare Obersichtlichere Programme zu schreiben. 

Beispiel: 

10 REM • BEDEUTUNG DER VARIABLEN • 
20 REM * A = AUFWAND • 

20 REM * B = TEILEZAHL • 

40 REM • C = KOSTEN DER EINHEIT • 

50 REM -- - 

60 A s* B • C: REM AUFWAND = ZAHL DER TEILE MAL KOSTEN 

IF Ausdruck Aktion 

Dieses Statement bringt den Computer dazu, einen logischen oder relationalen Ausdruck 
zu entscheiden. 1st der Ausdruck „wahr", so wird Aktion ausgefuhrt, ist er falsch, so 
wird Aktion ignoriert und mit dem nachsten Statement fortgefahren. Numerisch bedeutet 
„wahr", daB der Wert von Ausdruck nicht Null ist. 

Beispiel: 

10 INPUT "GIB ZAHL EIN ( MAX. 20 ) " ; A 

20 IF A > 20 GOTO 60 

30 A = A • 3.1416 • 2 

40 PRINT "DER KREISUMFANG IST : " ; A 

50 END 

60 PRINT "ZAHL ZU GROSS, MAX. 20" : GOTO 10 

READY 
>RUN 

GIB ZAHL EIN ( MAX. 20 ) ? 24 
ZAHL ZU GROSS, MAX. 20 
GIB ZAHL EIN ? 18 * 
DER KREISUMFANG IST : 113.098 
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In diesem Beispiel wird jedes Mai, wenn eine Zahl grdBer als 20 eingegeben wird, eine 
Warnung ausgegeben und eine neue Eingabe erwartet. 1st A jedoch kleiner oder gleich 
20, ignoriert der Computer das GOTO 60 in Zeiie 20 und beendet seine Berechnung ohne 
eine Warnung auszugeben. 

Beispiel: 

120 INPUT A : IF A = 10 AND A < B THEN 160 
120 INPUT A : IF A = 10 AND A < B GOTO 160 

Beide Statements haben die gleiche Wirkung. 

THEN Statement oder Zeilennummer 

Bezeichnet den Beginn der „Aktion" in einem IF-THEN Statement. THEN kann entf alien, 
wenn es benutzt wird, urn eine Zeilennummer als Sprungziel anzugeben, wie in: IF A = 
B GOTO 100. THEN sollte in F-THEN-ELSE-Statements angegeben weraen. 

ELSE Statement oder Zeilennummer 

Dieses Statement kann nur hinter einem IF Statement stehen und gibt eine Alternative 
an, wenn der Ausdruck im IF Statement „falsch" wird. 

Beispiel: 

10 IF A = 1 THEN 60 ELSE 40 

In diesem Beispiel wird nach 60 verzweigt, wenn A gleich 1 ist, ist dies nicht der Fall, 
wird nach 40 verzweigt. IF-THEN-ELSE-Statements konnen verschachtelt werden, aber 
die Anzahl der IFs und ELSEs mUssen Obereinstimmen. 

Beispiel: 

10 INPUT "GIB DREI ZAHLEN EIN" ; X, Y, Z 

20 PRINT "DIE GROSSTE ZAHL IST : " ; 

30 IF X < Y OR X < Z THEN IF Y < Z THEN PRINT Z ELSE PRINT Y ELSE PRINTX 

40 END 

READY 
>RUN 

GIB DREI ZAHLEN EIN? 30, 75, 73 
DIE GROSSTE ZAHL IST : 75 

Das Programm erwartet drei Zahlen als Eingabe und gibt die groBte der drei aus. 

LPRINT 

Gibt Daten auf dem Drucker aus. Dieses Statement (auch Kommando) arbeitet analog 
zum PRINT Statement. Ist kein Drucker angeschlossen, so ger&t der Computer bei Aus- 
fOhrung dieses Statements in eine endlose Schleife, aus der er nur durch gleichzeitiges 
Drucken der beiden < RST >-Tasten befreit werden kann. 

Beispiel: 
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10 FOR X = 1 TO STEP 


-0. 


25 






20 LPRINT "X BETRAGT : " 


; x 




X BETRAGT : 


1 


30 NEXT X 






X BETRAGT : 


.75 


40 END 






X BETRAGT : 
X BETRAGT : 


.5 
.25 


READY 






X BETRAGT : 


.0 


>RUN 











25. VERARBEITUNG VON FELDERN 



Ein Feld (array) ist einfach eine geordnete Liste von Daten. Das Video-Genie-System ver- 
arbeitet numerische und auch Zeichenketten-Felder. Beide Datentypen konnen aber nicht 
im gleichen Feld gemischt auftreten. Die Konzepte der Programmierung von Feldern sind 
sehr wichtig fur die Computeranwendung und deshalb sotlte der Benutzer versuchen, die 
Beispiele dieses Kapitels zu verstehen. 

Nehmen wir an, Fritz Walter studiert an einer Universitat. Das Gebaude hat drei Stock- 
werke, von denen jedes vier Klassenraume beherbergt. Jeder Raum hat 45 Platze. Fritz 
hat eine Vorlesung in Geschichte belegt und es sind nur 36 Studenten mit ihm in der 
Klasse. Sehen wir uns die Namensliste von Fritzs Klasse an: 

NAMENLISTE 

1. Maria Adam 

2. Jupp Braun 

3. Heinrich Cox 

• 

• 

36. Fritz Walter 

Urn eine Person in der Liste zu finden, mOssen wir die Liste lediglich von oben nach un- 
ten durchlesen. Die Methode, mit der der Name gesucht wird, ist nicht sonderlich wich- 
tig. 

Wichtig ist, wie man eine Person in der Liste finden kann, wenn man nur ihre Nummer 
kennt. In der obigen Liste ist Maria Adam die erste, Jupp Braun die zweite Person 
usw.... Die Zahlen geben also einen systematischen Weg an, um eine Person zu finden. 

Benutzen wir den Computer, um die Namensliste aufzuzeichnen, konnen wir jedem Na- 
men eine einheitliche Variable zuweisen: 

10 N0$ = "MARIA ADAM" 
20 N1$ = "JUPP BRAUN" 
30 N2$ = "HEINRICH COX" 



100 NS$ = "THOMAS HAGEN" 



140 NZ$ = "FRITZ WALTER" 

Bedenkt man, daB 36 Studenten in der Klasse sind, so sieht man, daB dies eine uneffek- 
tive und zeitraubende Methode ist. Sehen wir das Programm genauer an, so stellen wir 
fest, daB alle Variablen laufende Nummern angehangt bekommen haben. Das haben wir 
einfach intuitiv und von Hand gemacht. Erzeugt der Computer nun diese laufenden Num- 
mern selbst, so ist das ein Feld (array). Wir definieren ein Feld AR$ mit 45 Elementen 
(45 Platze) und ordnen jedem Element einen Namen zu. 
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Beispiel: 

5 CLEAR 1000 : REM SETZE 1000 BYTES FUR ZEICHENKETTEN FREI 

10 DIM AR$ ( 44 ) : REM FELD AR$ HAT 45 ELEMENTE 

20 FOR N = TO 44 : REM 45 SCHLEIFENDURCHLAUFE 

30 INPUT "GIB DEN NAMEN DES STUDENTEN EIN" ; AR$ ( N ) 

40 REM ORDNE DEN FELDELEMENTEN DIE NAMEN ZU 

50 NEXT N 

60 END 

Dieses Programm liest 45 Namen ein und speichert sie in dem Feld AR$. Nach der Pro- 
grammausfGhrung haben wir folgende Variablenbelegung: 

Das Element AR$ (0) hat den Wert "Maria Adam" 
Das Element AR$ {1) hat den Wert "Jupp Braun" 
Das Element AR$ (2) hat den Wert "Heinrich Cox" 

Das Element AR$ (35) hat den Wert "Fritz Walter" 

Wollen wir die Liste nun ausdrucken, konnen wir folgendes Programm einsetzen: 

5 CLEAR 1000 : REM SETZE 1000 BYTES FUR ZEICHENKETTEN FREI 

10 DIM AR$ ( 44 ) : REM FELD AR$ SOLL 45 ELEMENTE BEKOMMEN 

20 REM * • EINGABE DER FELDELEMENTE • • 

20 FOR N = TO 44 : REM 45 SCHLEIFENDURCHLAUFE 

30 INPUT "GIB DEN NAMEN DES STUDENTEN EIN" ; AR$ ( N ) 

40 REM ORDNE DEN FELDELEMENTEN DIE NAMEN ZU 

50 NEXT N 

60 REM • • AUSDRUCKEN DER FELDELEMENTE • • 

70 FOR N = TO 44 : REM WIEDER DIE 45 MAL SCHLEIFE 

80 PRINT AR$ ( N ) : REM DRUCKE DIE FELDELEMENTE ( NAMEN ) 

90 NEXT N 

100 END 

Der Ausgabeteil des Programms ersetzt folgende 45 PRINT- Statements: 

10 PRINT N0$ 

20 PRINT N1$ 

30 PRINT N2$ 

40 . 

50 . 

60 . 

70 PRINT NS$ 

80 . 

90 . 

100 . 

110 PRINT NZ$ 

Nun sollten Sie ein GefOhl for die NQtzlichkeit der Felder bekommen haben. 
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Angenommen, ein Lehrer dieser Klasse mOchte nun einen Sitzplan aufstellen. Es sind 6 
Zeiten und 6 Spalten von Sitzplatzen vorhanden: 







































Heinr 
Cox 






Jupp 
Braun 












Fritz 

Walter 








Mana 
Adam 











z 

e 

1 

e 
n 



Spalten 

Die Sitzpositionen unserer vier Beispiel-Studenten sind im obigen Plan eingezeichnet. Da 
sie sich aber nicht der Namensliste folgend hingesetzt haben, mQssen wir uns eine an- 
dere Methode ausdenken, um auf den Sitzplan zuzugreifen. Will der Lehrer z. B. feststel- 
len, ob Fritz Walter abwesend ist, so muB er nachsehen, ob der Stuhl in Zeile 1, Spalte 
3 leer ist oder nicht. Er kann auch in Zeile 2 Spalte nach Heinrich Cox suchen. Der 
Computer tut nun genau das gleiche, wie dieser Lehrer. Wir k6nnen diesen Sitzplan in 
ein 2 dimensionales Feld SP$ (5, 5) abbilden. Die erste 5 steht far die Zeilen, die zweite 
fur die Spalten. Wolten wir nun Jupp Braun aufrufen, so mQssen wir in SP$ (2, 3) nach- 
schauen. 



Nun wollen wir unseren Sitzplan ausdrucken. Das leistet folgendes Programm: 

10 CLEAR 1000 : DIM SP$ ( 5, 5 ) : REM SP$ 1ST 6X6 FELD 

20 FOR R = 5 TO STEP -1 

30 REM ZEILE 5 BIS ZEILE AUSDRUCKEN 

40 FOR C = TO 5 

50 REM SCHLEIFE, UM DIE NAMEN ALLER SPALTEN AUSZUGEBEN 

60 PRINT SP$ ( R , C );: REM DRUCKE NAMEN IN ZEILE R UND SPALTE C 

70 NEXT C 

80 PRINT : REM PRINT ALLEIN = ZEILENVORSCHUB 

90 NEXT R 

100 END 

Dieses Programm druckt den Sitzplan in Tabellenform. Es beginnt bei der letzten Sitzrei- 
he der Klasse und endet mit der ersten. Das Programm initialisiert zuerst R = 5 und C 
= 0. Dann druckt es die Werte der Elemente. 

SP$ ( 5, ) ; SP$ ( 5 , 1 ) ; SP$ ( 5, 2 ) ; SP$ { 5, 3 ) SP$ ( 5, 5 ) 
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An diesem Punkt wird der Wert von C = 5. Der Computer springt von der inneren „C"- 
Schleife zurQck in die auBere „R"-Schleife. Subtrahiert 1 von R und R wird damit zu 4. C 
wird wieder zu Null zuruckgesetzt und der Vorgang beginnt mit R = 4 neu: 

SP$ ( 4, ); SP$ ( 4, 1 ) ; SP$ ( 4, 2 ) ; SP$ ( 4, 3 ) SP$ ( 4, / ) 

Der gesamte ProzeB wird wiederholt, bis R = -1. Dann stoppt das Programm. Die end- 
gultige Liste sieht so aus: 



SP$ ( 5, ) 
SP$ ( 4, ) 
SP$ ( 3, ) 
SP$ ( 2, ) 
SP$ < 1 , ) 



SP$ ( 5, 1 ) 
SP$ ( 4, 1 ) 
SP$ { 3, 1 ) 
SP$ ( 2, 1 ) 
SP$ { 1 , 1 ) 



SP$ ( 5, 2 ) 
SP$ ( 4, 2 ). 
SP$ ( 3, 2 ), 
SP$ ( 2, 2 ). 
SP$ ( 1, 2 ). 



SP$ < 0, ) ; SP$ < 0, 1 ) ; SP$ ( 0, 2 ). 



.SP$ ( 5, 5 ) 
.SP$ (4,5) 
.SP$ (3,5) 
.SP$ (2,5) 
.SP$ (1,5) 
,SP$ ( 0, 5 ) 



Mit einem solchen, zweidimensionalen Feld konnen wir jeden Studenten in der Klasse lo- 
kalisieren. Aber wie kdnnte man einen Studenten lokalisieren, der auf dem gleichen Platz 
wie Fritz Walter, aber in der nachsten Klasse, sitzt? Naturlich mQssen wir dann neben 
Reihe und Spalte der Sitze noch die Nummer der Klasse angeben. Damit bekommt unser 
Feld noch eine weitere Dimension. Es gibt namlich 12 Klassenraume im Schulgebaude. 
Es stehen verschiedene Wege zur Verfugung, urn dieses Problem zu losen. Der zweite 
ist, die Raume nach Stockwerken anzuordnen. 1. Raum im 1. Stock, 1. Raum im 2. Stock 
usw. Hier brauchen wir dann zwei weitere Dimensionen (insgesamt: Reihe, Spalte, Raum, 
Stock). 

Angenommen, Fritz's Klassenraum ware der 3. Raum im 2. Stock. Nach der ersten Met- 
hode kdnnten wir Fritz's Platz dann mit SP$ (N, R, C) angeben. Dabei ist: N die Zahl der 
Raume, R die Reihe und C die Spaite. Jupp sitzt dann z. B. in SP$ (7, 1, 3) d. h. in 
Raum 7, Reihe 1, Spalte 3. 

Benutzen wir die zweite Methode, bekommen wir: SP$ (F, N, R, C). Dabei ist: F die Num- 
mer des Stockwerks, N die Nummer des Raumes in diesem Stock, R die Reihe und C 
die Spalte. Urn Fritz nun anzusprechen, mGBten wir sagen: SP$ (2, 3, 1, 3) d. h.: 2. Stock, 
3. Raum, 1. Reihe, 3. Spalte. 

Die Anzahl der Dimensionen steigt an, wenn wir noch mehr Studenten in unsere Syste- 
matik aufnehmen wollen. Wir kdnnen noch weitere Dimensionen einfQhren fUr die Gebau- 
de, die Universitaten, Stadte, Lander usw. 

In jedem Video-Genie-System wird die Anzahl der mbglichen Dimensionen nur durch den 
vorhandenen Speicherplatz begrenzt. 
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26. Behandlung von Zeichenketten 



Zeichenketten haben eine groBe Bedeutung in der Datenverarbeitung. Ein Computer, der 
keine Zeichenketten verarbeiten kann, ist nichts weiter als ein sehr leistungsfahiger Ta- 
schenrechner. Dieser Erkenntnis folgend, stehen Ihnen im Video-Genie-System auBer den 
arithmetischen Funktionen, viele leistungsfaTiige Zeichenkettenmanipulations-Funktionen 
zur VerfQgung. 

In diesem Kapitet werden wir diese Zeichenkettenmanipulations-Statements, die in unse- 
rer erweiterten BASIC-Programmiersprache benutzbar sind, erlautern. Wir werden von nun 
an Zeichenketten mit ihrem engiischen Namen bezeichnen, namlich als ••Strings**. 

Vergleichen von Strings (Zeichenketten) 

Mit den relationalen Operatoren (=, <, >, usw.) konnen Strings auf ihre Gleichheit uber- 
prOft und nach ihrer alphabetischen GrQBe verglichen werden. Wird auf Gleichheit ge- 
prQft, so mOssen alle Zeichen, fuhrende und abschlieBende Leerzeichen (blanks) einge- 
schlossen, Ubereinstimmen, sonst wird auf ungleich entschieden. 

Beispiel: 

100 IF A$ = "JA" THEN 250 

Strings werden Zeichen fdr Zeichen, von links nach rechts, verglichen. Um genau zu sein: die 
ASCII-Darstellung der Zeichen wird verglichen. Ein Zeichen mit einer hoheren Codenum- 
mer ist groBer als eines mit einer niedrigeren. Mit anderen Worten „AC" groBer „AB". 
FUr Buchstaben gilt die alphabetische Reihenfolge (A = Min, Z = Max). Werden Strings 
verschiedener Lange verglichen, so wird der kOrzere String als kleiner angenommen, auch 
wenn seine Zeichen identisch mit denen des langeren sind. Daher ist „B" kleiner „B ". 

Die folgenden relationalen Operationen konnen zum Vergleichen von Strings eingesetzt 
werden: 

>, <, <=, =>, =, <> 

String Operation 

Es gibt nur eine String Operation. Das ist das Aneinanderhangen von Strings. Der Opera- 
tor ist das „ + "-Zeichen. 

Beispiel: 

10 S1$ = "DIE SONNE" 

20 S2$ = "SCHEINT" 

30 S3$ = " ," 

40 C$ = S1$ + S2$ + S3$ + S2$ + S3$ + S2$ + ".*' 

50 PRINT C$ 

60 END 

READY 
>RUN 



DIE SONNE SCHEINT, SCHEINT, SCHEINT. 
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ASC (String) 

Dieses Statement berechnet den ASCII-Code des ersten Zeichens des angegebenen 
Strings. Der String muB in AnfQhrungszeichen eingeschlossen sein. Ein leerer String als 
Argument erzeugt eine Fehlermeldung. 

Beispiel: 

100 PRINT "DER ASCII-CODE VON 'H' 1ST : " ;, ASC ( "H" ) 

105 S$ = "HEIM" : PRINT "DER STRING HEISST :" ; S$ 

110 PRINT "DER ASCII-CODE DES 1 . BUCHSTABENS 1ST : " ; ASC ( S$) 

120 END 

READY 
>RUN 

DER ASCII-CODE VON ' H ' 1ST : 72 

DER STRING HEISST : HEIM 

DER ASCII CODE DES 1 . BUCHSTABENS 1ST : 72 

Beide Zeilen drucken die gleiche Zahl. 

Eine Liste der ASCII-Codes finden Sie in Anhang F. 

CHR$ (Ausdruck) 

Dieses Statement macht das genaue Gegenteil der ASC Funktion. Es erzeugt das zum 
Wert von Ausdruck gehOrige ASCII-Zeichen. Als Argument darf eine Zahl von bis 255, 
oder ein Ausdruck mit diesem Wert, auftreten. Das Argument muB in Klammern gesetzt 
werden. 

100 PRINT CHR$( 33 ): REM SCHREIBE EIN AUSRUFEZEICHEN 

LEFT$ ( String, n ) 

Das Statement erzeugt die ersten n Zeichen des angegebene Strings. String und n mas- 
sen in Klammern stehen. String kann eine Zeichenkettenvariable oder Konstante sein, n 
kann ein numerischer Ausdruck oder Konstante sein. 

Beispiel: 

10 A$ = "ABCDEFG" 
20 B$ = LEFT$ ( A$, 4 ) 
30 PRINT B$ 
40 END 

READY 
>RUN 

ABCD 
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RIGHTS (String, n) 

Erzeugt die n letzten Zeichen von String. Die Argumente mOssen in Klammern stehen. 
String kann eine Zeichenkettenvariable Oder Konstante sein, n kann eine numerische Va- 
riable oder Konstante sein. 1st die Lange von String kleiner Oder gleich n, wird der gesamte 
String erzeugt. 

Beispiel: 

10 A$ = "ABCDEFG" 
20 B$ = RIGHTS ( A$, 3 ) 
30 PRINT B$ 
40 END 

READY 
>RUN 

EFG 



LEN (String) 

Gibt die Lange von String an. String kann Variable, Konstante oder Zeichenkettenaus- 
druck sein. 

Beispiel: 

10 A$ = "ABCDEFG" 

20 PRINT "DIE LANGE DER ZEICHENKETTE : " ; LEN ( A$ ) 

30 END 

READY 
>RUN 

DIE LANGE DER ZEICHENKETTE : 7 

MID$ (String, p, n) 

Erzeugt einen Teilstring von String. Er beginnt an Position p und ist n Zeichen lang. Die 
Argumente mossen in Klammern stehen. String kann Konstante, Variable oder Ausdruck 
sein, p und n kSnnen numerische Konstante, Variable oder Ausdruck sein. 

Beispiel: 

10 A$ = "ABCDEFG" 

20 B$ = MID$ ( A$, 3, 4 ) 

30 PRINT "DER NEUE STRING HEISST : " ; B$ 

40 END 

READY 
>RUN 

DER NEUE STRING HEISST : CDEF 
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STR$ (Ausdruck) 

VerwandeJt eine numerische Konstante oder einen Ausdruck in einen String. Das Angebot 
muB in Klammern stehen. 

Beispiel: 

10 A = 34.56 

20 B$ = STR$ { A ) 

30 B$ = B$ + "%" 

40 PRINT "DAS ERGEBNIS 1ST : " ; B$ 

READY 
>RUN 

DAS ERGEBNIS 1ST : 34.56% • 

STRINGS (n, Zeichen oder Zahl) 

Erzeugt einen String, der aus n mal dem Zeichen besteht. 

Beispiel: 

10 PRINT STRINGS ( 10, "•" ) 
20 END 

READY 

>RUN 

•••••••••* 

An Stelle von Zeichen kann man auch eine Zahl von bis 255 angeben. Sie wird als 
ASCII-Code behandelt und das entsprechende Zeichen oder der Graphische Code werden 
erzeugt. 

10 PRINT STRINGS ( 10, 35 ) 
20 END 

READY 
>RUN 

######### # 



VAL (String) 

Macht das Gegenteil der STR$ Funktion. Erzeugt einen numerischen Wert aus String. 

Beispiel: 

10 A$ = "56" 

20 B$ = "23" 

30 C = VAL ( A$ + " " + B$ ) 

40 PRINT "DAS ERGEBNIS 1ST : " ; C ; "," ; C + 100 

50 END 

READY 
>RUN 



DAS ERGEBNIS 1ST : 56.23, 156.23 
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27- ARITHMETISCHE FUNKTIONEN 



In diesem Kapitel werden wir die test programmierten, arithmetischen Funktionen des 
Video-Genie-Systems besprechen. In den meisten Fallen muB ein Argument an die Funk- 
tion weitergegeben werden, bevor der Funktionswert berechnet werden kann. Dieses Ar- 
gument kann eine numerische Konstante, eine numerische Variable Oder ein numerischer 
Ausdruck sein. Das allgemeine Format ist: 

Ergebnis = Funktion (Argument) 

Beispiel: 



10 


A = RND ( 3 ) 


20 


B = INT ( C ) 


30 


E = SQR ( F*G— 4 ) 


Wir behandeln folgende F 


1. 


ABS ( X ) 


2. 


ATN ( X ) 


3. 


CDBL < X ) 


4. 


CINT ( X ) 


5. 


COS ( X ) 


6. 


CSNG ( X ) 


7. 


EXP ( X ) 


8. 


FIX ( X ) 


9. 


INT ( X ) 


10 


. LOG ( X ) 


11 


. RANDOM 


12 


. RND ( X ) 


13 


. SGN ( X ) 


14 


. SIN ( X ) 


15 


. SQR ( X ) 


16 


. TAN ( X ) 



ABS (X) 

Berechnet den Absolutwert von X. 

ATN (X) 

Berechnet den Arcustangnes von X (im BogenmaB). Urn das Ergebnis in Grad zu erhal- 
ten, multipliziere ATN (X) mit 57.29578. 

CDBL (X) 

Erzeugt die doppelt genaue Darsteltung von X. Das Ergebnis erthatt 17 Stellen, wovon 
die Stelien, die das Argument enthalten signifikant sind. 

CINT (X) 

Berechnet die nachste, ganze Zahl, die kleiner als das Argument ist. Das Argument muB 
zwischen —32768 und +32767 liegen. 
Beispiel: CINT (2.6) = 2; CINT (—2.6) = 3 
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COS (X) 

Berechnet den Cosinus des Arguments (im BogenmaB). Soil er in Grad berechnet werden: 
COS {X*. 01 74533) 

CSNG (X) 

Erzeugt die einfache genaue Darstellung von X. Berechnet eine 6stellige Zahl mit 4/5 
Rundung bei doppelt genauem X. 

EXP (X) 

Berechnet die Exponential-Funktion von X, d. h. e hoch X. Das ist die Umkehrfunktion zu 
LOG {X). 

FIX (X) 

Trennt die Nachkommastellen von X ab. FIX (1.5) = 1; FIX (—1.5) = —1 

INT (X) 

Erzeugt die ganzzahlige Darstellung von X. Berechnet die groBte, ganze Zahl, die nicht 
gr6Ber als X ist. 

Beispiel: INT ( 3.5 ) = 3 ; INT ( — 3.5 ) ist gleich —4 

LOG (X) 

Berechnet den naturlichen Logarithmus von X. d. h. log e (X). Um einen Logarithmus zu ei- 
ner anderen Basis zu berechnen benutzen Sie folgende Formel: 
logb(X) = log (X) e /log e (b) (b ist die Basis) 

RANDOM 

FQhrt der Computer diese Funktion aus, so erzeugt er einen neuen Vorrat an Zufallszah- 
len. Diese Funktion benotigt keine Argumente. 

RND (X) 

Erzeugt eine Pseudozufallszahl aus der aktuellen Menge von Zufallszahlen. (Werden in- 
tern generiert, kein Zugriff vom Benutzer moglich). 
RND (0) erzeugt eine einfach genaue Zufallszahl zwischen und 1 
RND (X) erzeugt eine ganze Zahl zwischen 1 und X 
X muB kleiner als 32768 und positiv sein 

SGN (X) 

Die Vorzeichenfunktion. Sie erzeugt eine —1, wenn X negativ ist, Null, wenn X Null ist 
und +1, wenn X positiv ist. 

SIN (X) 

Berechnet die Sinusfunktion von X (im BogenmaB) 
Der Sinus in Grad: SIN (X*. 0174533) 

SQR (X) 

Berechnet die Quadratwurzel von X. 

TAN (X) 

Berechnet die Tangensfunktion von X. (im BogenmaB) 
TAN (X) in Grad: TAN (X*. 0174533). 
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28- Zusatzliche Basic-Befehle 



INP (Portnummer) 

Liest einen 8-bit Wert aus dem angegebenen Port. Das Video-Genie-System kann 256 
Ports adressieren. Sie werden von bis 255 numeriert. Einige Ports sind schon intern 
verwendet. 

Beispiel: 

10 A = INP ( 124 ) 

Liest 8-bit Wert aus Port Nr. 124 nach A. 

OUT Portnummer, Wert 

Gibt einen 8-bit Wert auf dem angegebenen Port aus. Dieses Statement verlangt zwei Ar- 
gumente: die Portnummer und den Wert, der an diesem Port ausgegeben werden soil. 
Das Video-Genie-System kann 256 Ports adressieren, sie sind von bis 255 durchnume- 
riert. 

Beispiel: 

30 OUT 14,240 

Gibt den Wert 240 an Port 14 aus. Beide Argumente mussen zwischen und 255 liegen. 

PEEK (Adresse) 

Diese Funktion holt einen 8-bit Wert aus der Speicherzelle, die mit Adresse dezimal an- 
gegeben wurde. Der Wert von PEEK ist ebenso dezimal und liegt zwischen und 255. 

Beispiel: 

20 B = PEEK ( 3000 ) 

Schreibt den Inhalt von Speicherzelle 3000 nach B. 

POKE Adresse, Wert 

Dieses Statement schreibt einen 8-bit Wert in die, durch Adresse dezimal angegebene 
Speicherzelle. Es braucht zwei Argumente: Adresse und Wert. Wert muB zwischen und 
255 liegen. 

Beispiel: 

10 A = 250 

20 POKE 19000, A : REM SCHREIBE A IN ZELLE 19000 

30 B = PEEK ( 19000 ) : REM HOLE DEN WERT VON ZELLE 19000 

40 PRINT "DAS ERGEBNIS IST : " ; B 

50 END 
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MEM 

Gibt die Zahl der nicht benutzten Bytes im Speicher an. 

Beispiei: 

200 IF MEM < 180 THEN 700 

Wenn MEM als Kommando eingesetzt werden sotl, muB es zusammen mit PRINT ausge- 
fOhrt werden. PRINT MEM gibt die Zahl der Bytes im Speicher aus, in denen kein Pro- 
gramm, Variablen, Zeichenketten usw. stehen. 



INKEY$ 

Liest ein Zeichen von der Tastatur. Wurde zum Zeitpunkt der Ausfuhrung der IN KEY 
Funktion keine Taste betatigt, so wird ein Leerstring erzeugt { = " "). Die von der INKEY$ 
Funktion eingelesenen Daten erscheinen nicht auf dem Schirm. 

Beispiei: 

10 REM EINGABE EINES PASSWORDS 

20 REM OHNE ES AUF DEM SCHIRM SICHTBAR ZU MACHEN 

30 CLS 

40 PRINT "GIB PASSWORD EIN" 

50 A$ = IN KEYS : IF A$ = "O" THEN 60 ELSE 50 

60 B$ = IN KEYS : IF B$ = "K" THEN 70 ELSE 60 

70 PRINT "WILLKOMMEN" 

Beispiei: 

10 AS = INKEYS : IF AS = " " THEN 10 

Dieses Programm wartet, bis eine Taste betStigt wurde. 



POS (dummy argument) 

Es wird eine Zahl von bis 39, die die momentane Position des Cursors angibt, erzeugt. 
„dummy argument" kann irgendeine Zahl setn, meist wird die „0" benutzt. 

Beispiei: 

100 A = POS ( ) 

USR (argument) 

Ruft ein Unterprogramm in Maschinensprache auf. Das Unterprogramm kann mit POKE 
erzeugt Oder vom Band eingelesen werden. Wenn der Benutzer in der Programmierung in 
Maschinensprache noch nicht sicher ist, ist vom Einsatz dieser Funktion abzuraten. 

Die Startadresse des Unterprogramms wird mit POKE in die Adressen 16526 und 16527 
mit dem am wenigsten signifikanten Byte in 16526, geschrieben. 

Urn ein Argument in das Unterprogramm zu Obergeben, sollte das Unterprogramm an sei- 
nem Anfang ein CALL 0A7FH {2687 in dezimal), ausfQhren. Das Argument wird dann in 
das HL-Register geschrieben. 
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Um ins BASIC zurQck zu kommen, ohne einen Wert zurOckzugeben, wird das Unterpro- 
gramm mit RET abgeschlossen. Soil ein Wert zurQckgegeben werden, so wird er in das 
HL-Registerpaar geladen und am Ende des Unterprogramms ein JP 0A9A'H ( = 2714 in de- 
zimal) ausgefuhrt. Die Werte werden als 2 Byte, ganze Vorzeichenzahlen behandelt. Die 
USR Funktion reserviert 8 Stack Ebenen far das Unterprogramm. 

Das Unterprogramm sollte in den obersten Speicherbereich geschrieben werden. Um es 
davor zu schutzen, daB es vom Basic als Programmspeicher betrachtet und damit sein 
Inhalt zerstort wird, sollte der Benutzer, wenn das System nach dem Einschalten MEM 
SIZE? ausgibt, die hochste Speicheradresse, die das BASIC noch benutzen darf, ohne 
sein Unterprogramm zu uberschreiben, angeben (in dezimal). 

Beispiel: 

10 INPUT l% : REM ARGUMENT EINGEBEN 

15 REM * STARTADRESSE EINSCHREIBEN 

20 POKE 16526, : POKE 16527, 120 

30 A = USR ( 1% ) : REM • A WIRD ZURUCKGEGEBEN* 

VARPTR (variablen name) 

Die Adresse, an der der Wert der Variablen im Speicher steht, wird berechnet. 

10 K = VARPTR ( A ) 

Fur die verschiedenen Variablentypen bedeutet K dann folgendes: 

(i) 2- Byte, ganzzahlige Variablen (A%) 

K = LSB 

K + 1 = MSB 

<ii) Variablen einfacher Genauigkeit (A) 

K = LSB 

K + 1 = Nachstes MSB 

K + 2 = MSB 

K + 3 = Exponent 

(iii) Variablen doppelter Genauigkeit (A#) 

K = LSB 

K + 1 = nachstes MSB 



K + 6 = MSB 
K + 7 = Exponent 

(iv) Zeichenketten Variablen (string) (A$) 

K = Lange des Strings 

K + 1 = LSB der Anfangsadresse des Strings 

K + 2 = MSB der Anfangsadresse des Strings 

LSB bezeichnet das am wenigsten signifikante Byte. 
MSB bezeichnet das am hochsten signifikante Byte. 
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29- Hochauflosende Grafik 



Neben dem Text-Modus, in dem Sie Programme eingeben etc., gibt es beim Colour-Genie 
den Modus fur hochauflGsende Grafik. In diesem Modus steht Ihnen eine AuflOsung von 
160 mal 96 Punkten zur Verfiigung. Jeder der Punkte kann eine von 4 Farben annehmen. 

Der Punkt mit den Koordinaten 0,0 liegt in der linken oberen Bildschirmecke. Die X- 
Koordinaten nehmen nach rechts hin zu und die Y-Koordinaten nach unten hin. 

Sie kOnnen, wie im Kapitel uber die Tastatur beschrieben, durch gleichzeitiges DrOcken 
von <CTRL> und <MOD SEL> direkt den Inhalt des Bildschirmspeichers fur hochauflo- 
sende Grafik sichtbar machen. Zuruck kommt man mit <BREAK>. 

Interessanter ist naturlich die Umschaltung vom Programm aus. Diese geschieht mit den 
2 Befehlen „LGR" und „FGR". 

Auch die weiteren Grafik-Befehle wollen wir nun kennenlernen. AnschlieBend finden Sie 
einige Programmbeispiele, anhand derer die Grafikbefehle demonstriert werden. 

LGR 

Umschalten auf den Textmodus. 

FGR 

Umschalten auf den Grafikmodus. 

FCLS 

Dieser Befehl Idscht den Bildschirmspeicher fQr hochauflGsende Grafik. 

BGRD 

Mit „BGRD" wird im Grafik-Modus die Hintergrundfarbe (magenta) eingeschaltet. 

NBGRD 

Dieser Befehl schaltet die Hintergrundfarbe wieder ab. Dabei wird ein eventueller Bildin- 
halt nicht geldscht. 

Fill n 

Dieser Befehl malt den gesamten Bildschirminhalt mit der durch n angegebenen Farbe 
aus. Der Bildschirminhalt wird dabei geldscht. Dabei kann n den Wert 1, 2, 3 oder 4 an- 
nehmen, der folgender Farbe entspricht: 
n = 1: schwarz bzw. magenta wenn „BGRD" 
n = 2: blau 
n = 3: orange 
n = 4: grOn 
Dieser Befehl Iftscht den Inhalt des Grafikspeichers. 

FCOLOUR n 

Mit „FCOLOUR" legen Sie die Farbe fest, in der alle weiteren Punkte gezeichnet werden. 

Dabei entspricht der Wert von n folgenden Farben: 



n = 1 

n = 2 

n = 3 

n = 4 



schwarz oder, wenn Hintergrundfarbe angeschaltet, magenta. 

blau 

orange 

grun 



CIRCLE X, Y, R 

Dieser Befehl zeichnet einen Kreis, dessen Mittelpunkt die Koordinaten X und Y hat und 

dessen Radius R betragt. Uberschreitet einer der 3 Werte 255 wird eine Fehlermeldung 

ausgegeben. Kreise, die iiber den Bildschirm hinausgehen, stimmen nur teilweise in ihrer 

Darstellung. 
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PLOT 

Dieser Befehl hat mehrere Formate: 

1. PLOT X,Y setzt den Punkt mit den Koordinaten X und Y. 

2. PLOT X,Y TO X1, Y1 zieht eine Linie von Punkt X,Y zum Punkt X1.Y1 

3. PLOT X,Y TO X1.Y1 TO X2.Y2 TO . . . 

zieht eine Linie von Punkt X,Y zum Punkt X1,Y1 und von dort zum Punkt X2.Y2 usw. 

NPLOT 

Dasselbe wie „PLOT", nur daB die Linie zuruckgesetzt wird. 

N = CPOINT(X,Y) 

Hiermit konnen Sie die Farbe des Punktes mit den Koordinaten X und Y feststellen. N 

nimmt dabei folgende Werte an: 

N = for schwarz bzw. Hintergrundfarbe, 

N = 1 for blau, 

N = 2 fOr orange, 

N = 3 fQr blau 

Beachten Sie, daB bei diesem Befehl die Koordinaten in Klammern angegeben werden. 

PAINT X,Y,C,G 

Dieser Befehl dient dazu, Flachen auszumalen. Ausgemalt wird von dem Punkt mit den 
Koordinaten X und Y aus. Dabei wird die Farbe C benutzt und dann aufgehort, wenn die 
Farbe G erreicht wird. Die Werte von C und G mOssen denen, die Sie vom „FCOLOUR"- 
Befehl her kennen, entsprechen. 

Hierzu gleich das 1. Programmbeispiel: Es sol! einen blauen Kreis auf schwarzem Hinter- 
grund zeichnen, mit dem Mittelpunkt bei Koordinate X = 70 und Y = 30, und dem Radius 
R = 30. Dieser Kreis soil dann orange ausgemalt werden. 

Die „REM"-Befehle schlieBen eine Erklarung an die jeweiiigen Befehle an, Sie miissen 
diese naturlich nicht mit eingeben. 

>10 FCLS : REM Loschen des Grafik-Speichers. 

>20 FGR : REM Umschalten in den Grafik-Modus. 

>30 FCOLOUR 2 : REM Farbe Blau fOr den Kreis einstellen. 

>40 CIRCLE 70,30,30 : REM Kreis zeichnen. 

>50 PAINT 70,30,3,2 : REM Kreis ausmalen. 

>60 GOTO60 : REM Endlosschleife, damit die Grafik sichtbar bleibt. 

2. Beispiel: Sie wollen ein Dreieck mit den Eckpunkten P(80,10); Q(150,90) und S{10,90) in 
Blau auf orangem Hintergrund zeichnen: 

>10 FCLS : REM Loschen des Grafik-Speichers. 

>20 FGR : REM Umschalten in den Grafik-Modus. 

>30 FILL 3 : REM Bildschirm in Orange ausmalen. 

>40 FCOLOUR 2 : REM Farbe Blau einstellen. 

>50 PLOT 80, 10 TO 150,90 TO 10,90 TO 80,10 : REM Dreieck 

>60 GOTO 60 : REM Endlosschleife. 
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3. Beispiel: Zeichnen einer Sinuskurve (orange) mit X- und Y-Achse (blau): 

>10 FCLS : REM Grafikspeicher I6schen. 

>20 FGR : REM Umschaiten in den Grafik-Modus. 

>30 FCOLOUR 2 : REM , Farbe Blau for Achsen einstellen. 

>40 PLOT 0,0 TO 0, 95 : REM Y-Achse zeichnen. 

>50 PLOT 0,48 TO 159,48 : REM X-Achse zeichnen. 

>60 FCOLOUR 3 : REM Farbe Orange for Sinuskurve einstellen. 

>70 FOR X = TO 159 : REM Schleife fOr Sinus-Werte. 

>80 Y = SIN ( X / 20 ) *47 + 48 : REM Y-Werte aus Sinus-Funktion. 

>90 PLOT X,Y : REM Punkt setzen. 

>100 NEXT X : REM NSchster X-Wert (bis 159). 

>110 GOTO 110 : REM Endlosschleife. 

Wolien Sie die Kurve ausgemalt haben, so geben Sie 

>90 PLOT X,48 TO X,Y 

ein. 

4. Beispiel: Zeichnen von zufalligen Bildern mit dem „PLOT"-Befehl (Kommentare sind 
hier weggelassen, da keine neuen Befehle vorkommen.): 

>10 FCLS : FGR 

>20 X=RND (159 ) : Y = RND { 95 ) : S=RND ( 8 )+1 

>30 FCOLOUR RND ( 4 ) 

>40 FOR A = TO 159 STEP S : PLOT X,Y TO A,0 : NEXT A 

>50 FOR A = TO 95 STEP S : PLOT X,Y T0159 ,A : NEXT A 

>60 FOR A= 159 TO STEP — S : PLOT X,Y TO A, 95 : NEXT A 

>70 FOR A= 95 TO STEP — S : PLOT X,Y TO 0,A': NEXT A 

>80 GOTO 20 

5. Beipiet: Lissajou'sche Figuren: 

>10 CLS 

>20 INPUT"Frequenzverhaltnis ( 0,25 bis 3 } " ; FV 

>30 FCLS : FGR : FCOLOUR4 

>40 X = 80 : X = 48 

>50 W = W + 0.1 

>60 X1=X : Y1=Y 

>70 X = 80 + SIN ( W )*78 

>80 Y = 47 + SIN ( W-*FV ) *47 

>90 PLOT X,Y TO X1,Y1 

>100 GOTO 50 
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30 Die Befehle „SHAPE" 
und „SCALE" 



Genaugenommen handeit es sich bei diesen Befehlen auch urn Befehte far die hochauflosende 
Grafik. Da die Handhabung des „SHAPE"-Befehls aber recht kompliziert ist wird diesem zusam- 
men mit dem dazugehdrigen „SCALE"-Befehl dieses separate Kapitel gewidmet. 

SHAPE X,Y 

Der „SHAPE"-Befehl ermoglicht es, komplexe Figuren in hochaufldsender Grafik an beliebiger 
Bildschirmstelle mit einem einzigen Kommando darzustellen. 

Die Gestalt und Farbe der Figur werden dabei vorab in der sog. „Shape Table" definiert. Darunter 
hat man sich einen reservierten Speicherbereich vorzustellen, in dessen einzelnen Speicherplatzen 
jeweils ein Teil der Figur festgelegt ist. Die Festsetzung der einzelnen Werte geschieht bitweise fur 
Richtung und Farbe. 

Sollten Sie mit den Begriffen „Bit", „Byte" und „hexadezimal" noch nicht vertraut sein, lesen Sie 
am besten vorab das folgende Kapttel, das diese Begriffe erklart. 

Bei einem Rechner mit 16K RAM beginnt die Shape Table bei Adresse 7F00H, bei einem Rechner, 
dessen RAM auf 32K aufgerOstet ist, beginnt die Shape Table bei Adresse BFOOH. Wenn Sie beim 
Einschalten als Antwort auf die „MEM SIZE?"-Frage durch Eingabe einer Adresse in dezimal Spei- 
cher reserviert haben, werden die ersten 256 Byte im reservierten Bereich dennoch der Shape Table 
zugewiesen. In den beiden Speicherzellen 40B1 H und 40B2H steht der Wert, der angibt, wo die Sha- 
pe Table beginnt, minus 1. 

Wie wird eine Figur programmiert?. 

Dazu sollten Sie folgenderma&en vorgehen: 

Zuerst zeichnen Sie am besten auf einem Stuck Papier die Umrisse der Figur auf, die Sie definieren 
wollen. Dabei mQssen Sie beachten, daB eine Figur, die vom „SHAPE"-Befehl gezeichnet werden 
soil, nur aus geraden Linien bestehen darf. Ferner muB die Figur in einem Zug gezeichnet werden, 
so als ob Sie mit einem Stift eine Zeichnung machen, ohne dabei abzusetzen. 

Wie schon gesagt, besteht eine Shape-Figur nur aus geraden Linien. Jede Linie hat dabei eine te- 
ste Lange, man muB also seine Figur in feste Langeneinheiten unterteilen. 

Auch die Farbe der einzelnen Linien wird mit festgelegt, daher sollten sie sich auch die Farbe Qber- 
legen. 

AuBerdem mQssen Sie die Anzahl der einzelnen Linien zahlen, da diese die Lange der Shape Table 
ist. 
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Jedes Byte legt zwei Linien gleichzeitig fest, dabei gilt Format: 

1. Linie 2. Linie 

Bit Nr. B7 B6 B5 B4 B3 B2 B1 

Wert des Bits 128 64 32 16 8 4 2 



BO 

1 



B5 und B4 geben die Richtung for die erste Linie an, B1 und BO die Richtung for die 

zweite Linie. 

FOr die 4 Richtungen nehmen B5 und B4 bzw. B1 und BO folgende Werte an: 



Nach . . . 



B1 (B5) BO <B4) 



Rechts 
Unten 
Links 
Oben 

B7 und B6 geben die Farbe der ersten Linie an, B3 und B2 die Farbe fur die zweite Li- 
nie. 
Dabei gilt: 












1 


1 





1 


1 



Farbe 



B7 (B3) B6 (B2) 



Schwarz 
Blau 
Orange 
GrUn 












1 


1 





1 


1 



< Magenta, wenn „BGRD" 



In Speicherzelle 7F00H (bzw. BFOOH bei 32K RAM) wird die L§nge (gleich Anzahl der Li- 
nien durch zwei) geschrieben. tn die folgenden Speicherzellen werden dann die Bytes ge- 
maB obigem Format for die einzelnen Linien geschrieben. 

Dies alles will ich nun anhand eines Beispiels erklaren. 

Angenommen Sie woilen folgende Figur definieren: 



J 



Alle Linien sollen dabei grun sein. 

Sie setzen also bei Punkt eins an und dann: 

Nach oben, rechts, oben, rechts, unten, unten, links, links 

Die Bytes sehen also so aus (Adressen in Kiammer: bei 32K RAM) 



Adresse 

7F00H ( BFOOH ) 
7F01H ( BF01H ) 
7F02H ( BF02H ) 
7F03H ( BF03H ) 
7F04H ( BF04H ) 



Wert 


in bin&r 










und 











1 








4 


1 1 


1 1 


1 


1 








252 


1 1 


1 1 


1 


1 








252 


1 1 


1 


1 


1 





1 


221 


1 1 


1 


1 


1 


1 





238 



und dezimal (L3nge) 
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Folgendes Programm, das die Figur definiert, sieht also so aus {Programm for 16K, bei 
32K RAM entsprechende Werte einsetzen): 

>10 POKE &H7F00.4 
>20 POKE &H7F01 , 252 
>30 POKE &H7F02.252 
>40 POKE &H7F03.221 
>50 POKE &H7F04.238 
>60 FGR : FCLS 
>70 SHAPE 80,48 
>80 GOTO 80 

Programmerklarung: 

Zeile 10... 50 definiert die Figur. 

Zeile 60 Idscht den Bildschirm und schaltet in den Grafik-Modus. 

Zeile 70 zelchnet die definierte Figur, wobei bei Bildschirmkoordinate 80,48 begonnen 

wird. Hier konnen Sie naturlich auch andere Koordinaten einsetzen. 

Zeile 80 bewirkt, das die Grafik erhalten bleibt. 

Wenn Sie das Programm starten, sehen Sie, daB die Figur sehr klein gezeichnet wird. 

Da schafft der „SCALE"-Befehl Abhilfe. 

SCALE n 

Mit diesem Kommando legen Sie den VergroBerungsfaktor for die Zeichnung mit dem 
„SHAPE"-Befehl test. 

FOgen Sie z. B. in obiges Programm diese Zeile ein: 

>65 SCALE 10 

Die Figur erscheint in zehnfacher Grd&e. 

Der maximale Wert von n ist 255. 

NSHAPE X, Y 

Dasselbe wie SHAPE X,Y, nur daB die Figur zuruckgesetzt wird. 

XSHAPE X,Y 

Dasselbe wie Shape X, Y, nur, daB die Bits fur die Farbe komplementiert werden, d. h. 
die Farben andern sich folgendermaBen: 



Schwarz 


— 


GrOn 


Blau 


-* 


Orange 


Orange 


-> 


Blau 


Gron 


— + 


Schwarz 
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3 1 ■ Bit, Byte, Hexadezimalzahl 



Diesen 3 Begriffen werden Sie im Folgenden noch ofter begegnen. Daher seien sie hier 
kurz erklart. 

Das „Herz" Ihres Computers ist ein Z80-Mikroprozessor. Ein Mikroprozessor selbst ver- 
steht kein Basic sondern die sogenannte Maschinensprache. Der eingebaute Basic- 
Interpreter ubersetzt ein Basic-Programm in die fGr den Mikroprozessor verstandliche Ma- 
schinensprache. 

Die Maschinensprache arbeitet auf binarer Ebene. Die grundlegende Informationseinheit 
dabei ist ein „Bit". Ein Bit kann nur 2 Zustande annehmen: und 1, an und aus, Transi- 
stor leitet oder nicht . . . 

Nun faBt man 8 dieser Bits zu einem „Byte" zusammen. Die Z80 CPU ist ein 8-Bit- 
Mikroprozessor, d. h. sie kann jeweils 8 Bits = 1 Byte auf einmal verarbeiten. 

Da ein Byte 8 Bit enthSIt, sind 2* = 256 Zustande mdglich (von 0...255 einschlieBlich). 

Da die Darstellung eines Bytes in Bit-Schreibweise (z. B. 01101111 binSr = 111 dezimal) 
recht umstandlich ist, nimmt man je 4 Bit aus einem Byte und gibt diese dann durch ein 
Hexadezimalaquivalent aus: 



Binar: 


Hex 


0000 





0001 


1 


0010 


2 


0011 


3 


0100 


4 


0101 


5 


0110 


6 


0111 


7 


1000 


8 


1001 


9 


1010 


A 


1011 


B 


1100 


C 


1101 


D 


1110 


E 


1111 


F 



Ein Byte, das, wie schon gesagt, aus 8 Bit besteht, wird dann durch 2 Hexadezimalzif- 
fern dargestellt. 

Z. B.: 0111 1110 = 7E Hex. = 126 dez. 
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Der Z80-Mikroprozessor kann maximal 2 16 = 65536 Speicherzellen adressieren. Jede Spei- 
cherzelle entspricht einem Byte, das 256 verschiedene Zustande annehmen kann. 

Die Adresse einer Speicherzelle wird durch 16 Bits angegeben. Hier werden 4 mal 4 Bits 
zu je einer Hexadezimalziffer zusammengefaBt. 

Ein Beispiel: 

0110 1111 1100 1110 = 6FCE Hex. = 28622 Dez. 

Die Adressen reichen also von 0000H bis FFFFH. 

Wie im nSchsten Kapitel beschrieben, kann das Genie-Basic Hexadezimalzahlen direkt in 
Dezimalzahlen umrechnen. Umgekehrt ist dies nicht mdglich, daher ist hier ein kleines 
Basic-Programm aufgelistet, das diese Aufgabe obernimmt: 

>10 CLS 

>20 DIM A$ ( 15 ) 

>30 FOR A = TO 15 

>40 READ A$ { A ) 

>50 NEXT A 

>60 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

>70 INPUT "Dezimalzahl" ; Z 

>80 A$ = "" 

>90 A = Z 

>100 A1 = FIX ( A / 16 ) 

>110 A2 = A— A1*16 

>120 A$ = A$ ( A2 ) + A$ 

>130 A = A1 

>140 IF A>0 THEN 100 

>150 IF LEN ( A$ ) < 4 THEN A$ = "0"+A$ : GOTO 150 

>160 PRINT Z ; " dezimal entspricht " ; A$ ; " hexadezimal." 

>170 GOTO 70 
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32 B Spezial-Befehle 



&HXXXX 

„XXXX" steht for eine 4stellige hexadezimale Zahl. Mit diesem Befehl kann man direkt 
hexadezimale Zahlen verarbeiten bzw. sie in dezimate Zahlen umrechnen. Z. B.: 

>PRINT &H4F00 

20224 
READY 
>■ 

4F00 hexadezimal entspricht 20224 dezimal. 

Geben Sie folgendes ein: 

> PRINT &HF000 

—4096 

READY 

>■ 

Wieso wurde dieses mal eine negative Zahl ausgegeben? Dies hat folgenden Grund: Der 
Computer gibt ab Hexadezimalzahl 8000H als Dezimalaquivalent eine negative Zahl aus. 
Der Vorteil dieser Methode liegt darin, daB alle Adressen mit Integer-Variablen adressiert 
werden k6nnen. Das Gleiche muB man selber bei den Befehlen „PEEK" und „POKE" be- 
achten — auch hier muB man Ober 32767 (dezimal) einen negativen Wert eingeben, der 
sich wie folgt errechnen ISBt: 

>. . . IF X>32767 THEN X = X— 65536 

Die nachfolgende Speicherzelle auf 32767 (7FFFH) ist also mit —32768 {8000H) anzuge- 
ben — Die hochste mogliche Adresse ist —1 (FFFFH). 

&OXXX 

Rechnet die 3stellige Oktalzahl XXX in dezimal urn. Z. B.: 

> PRINT &0234 

156 
READY 
>■ 

CALL XXXX 

Springt zur Adresse XXXX (4stellige Hexadezimalzahl). Dieser Befehl wird zum Aufruf von 
Maschinenspracheunterprogrammen benutzt. 
Z. B.: 

>CALL 01 C9 

springt die Bildschirm-LOsch-Routine in ROM an. 
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RENUM N,S 

Dieser Befehl dient zur Umnummerierung von Basicprogrammzeilen. Nach der Umnumme- 

rierung beginnt das Programm bei Zeilennummer N und geht dann in Schritten von S 

weiter. 

Ein Beispiel: 

Sie haben folgendes Programm im Speicher: 

1 REM Zeile 1 

2 REM Zeile 2 

3 REM Zeile 3 

4 REM Zeile 4 

Nun geben Sie ein: 

>RENUM 2,20 

>LIST 

2 REM Zeile 1 

22 REM Zeile 2 

42 REM Zeile 3 

62 REM Zeile 4 

READY 

>■ 

Wird nur „RENUM" eingegeben, setzt das Basic automatisch fur N und S den Wert 10 
ein. 
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33. Der „CHAR"-Befehl 



Das Colour-Genie bietet die Moglichkeit zwischen 4 verschiedenen Zeichensatzen zu wdh- 
len. Dies geschieht mit dem „CHAR n"-Befehl, wobei n die Werte 1, 2, 3 und 4 anneh- 
men kann. 

Folgende Tabelle gibt an, wie sich der Zeichensatz mit dem Wert von n andert: 



ASCII 


Wert von n 


Code 


1 


2 


3 


4 


32—127 
128—191 
191—255 


(20H— 7FH) 
(80H— BFH) 
(COH— FFH) 


AZ 

PR1 

PR2 


AZ 

PR1 

GR2 


AZ 

GR1 

PR2 


AZ 

GR1 

GR2 



Erkiarung der AbkQrzungen: 

AZ: Alphanumerische Zeichen, also Buchstaben, Zahlen und Sonderzeichen. 

GR1: Erste Gruppe der test programmierten Grafikzeichen. Diese Grafikzeichen sind 
nicht Qber die Tastatur zu erreichen, sondern nur mit PRINT CHR$ (X) oder POKE 
Y, X, mit X= 128. ..191 und Y = &H4400. . .&H47FF. 

GR2: Zweite Gruppe der test programmierten Grafikzeichen. Diese Grafikzeichen konnen 
nach DrOcken von <MOD SEL> gemaB Aufdruck auf der Vorderseite der Tasten 
erreicht werden. 

PR1: Erste Gruppe der frei programmterbaren Zeichen. 

PR2: Zweite Gruppe der frei programmierbaren Zeichen. 

Folgendes Programm zeigt Ihnen die 4 verschiedenen Zeichensatze nach' entsprechender 
Zahleneingabe: 

>10 CLS 

>20 INPUT "ZEICHENSATZ ( 1...4 )" ; N 

>30 IF N<1 OR N>4THEN GOTO 20 

>40 COLOUR 9 

>50 CLS 

>60 CHAR N 

>70 FOR A = TO 255 

>80 POKE &H4400 + A* 2, A 

>90 NEXT 

>100 COLOUR 5 

>110 PRINT @ 880 ,"< RETURN >f Or Neustart" ; 

>120 INPUT X$ 

>130 RUN 

READY 

>■ 
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34- Programmierbare Zeichen 



Wie Sie im vorigen Kapitel gesehen haben, gibt es bis zu 128 programmierbare Zeichen; 
die voile Menge von 128 definierbaren Zeichen steht nach AusfQhrung von „CHAR 1" zur 
VerfOgung. 

Mit den programmierbaren Zeichen kann man eine Grafikauflosung von 320 mal 192 
Punkten erzielen. AuBerdem hat Grafik Qber programmierte Zeichen den Vorteil, daB man 
sie beliebig mit Text mischen kann. 

Wenn der Computer neu eingeschaltet ist, wird bei Abruf eines der definierbaren Zeichen 
ein Leerzeichen ausgegeben. 

Jedes definierbare Zeichen besteht aus einer 8 mal 8 Matrix, also einem Feld von 8 mal 
8 Punkten. Der Speicher for die programmierbaren Zeichen liegt von F400H bis F7FFH. 
Dabei entspricht jedes gesetzte Bit in einem Byte einem Punkt in einer Zeile des Zei- 
chens. Ein Zeichen besteht aus 8 Zeilen, daher sind insgesamt 8 Bytes fur ein Zeichen 
notwendig. 

Als Beispiel wollen wir das Zeichen mrt dem ASCII-Code 128, erreichbar mit PRINT 
CHR${128), betrachten. Dies ist das erste der programmierbaren Zeichen, also belegt es 
den Speicher von F400H bis F407H einschlieBlich. Eine Skizze soil dies verdeutlichen: 

7 6 5 4 3 2 10 





Bit-nummer 


Adressen (hex.) 




F400 


(fUr ASCII-Zeichen 


F401 


Nummer 128) 




F402 
F403 
F404 
F405 
F406 
F407 



xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 



2 hoch Bitnummer 128 64 32 16 8 4 2 1 

= Wert des Bits 

Jedes „x" stellt also ein Bit in dem Byte dar, dessen Adresse links angegeben ist. Jeder 
Punkt, der in einer Zeile gesetzt werden soil, entspricht also einem Bit. Jedes Bit, das in 
einer Zeile gesetzt wird, hat einen Wert von 1. . .128. Dieser Wert ist unter der Skizze an- 
gegeben. Urn also den Wert zu ermitteln, der insgesamt in die jeweilige Speicherzelle ge- 
schrieben werden muB, muB man alle Werte der einzetnen Bits addieren. Wenn man z. B. 
eine Zeile komplett setzen will, mussen die Werte alter Bits addtert werden, da ja alle 
Punkte gesetzt werden sollen: Gesamtwert = 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1 
= 255. 

>POKE &HF400-, 255 : PRINT CHR$( 128 ) 

setzt die erste Zeile von ASCII-zeichen Nummer 128. 

Zugegeben, dies klingt etwas kompliziert, aber anhand von einem weiteren Beispiel wer- 
den Sie sehen, daB das Definieren von Zeichen recht einfach ist, wenn man einmai das 
Prinzip verstanden hat. 
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Hier ist nun ein etwas aufwendigeres Beispiel fQr die Programmierung von Zeichen. Und 
zwar wollen wir das groBe „A" definieren. Wenn man also mit Umlauten arbeiten will, 
muB man diese selbst definieren. 

Ein „A" sieht, nach Punkten aufgelost, so aus: 

Bit-nummer 7 6 5 4 3 2 10 



Adressen (hex.) 


F400 


(fQr ASCII-Zeichen 


F401 


Nummer 128) 


F402 




F403 




F404 




F405 




F406 




F407 



■ 


X 


X 


■ 


X 


X 


■ 


X 


X 


X 


■ 


X 


■ 


X 


X 


X 


X 




X 


X 


X 




X 


X 


X 




X 


X 


X 




X 


X 


X 




■ 


■ 


■ 




X 


X 


X 




X 


X 


X 




X 


X 


X 




X 


X 


X 




X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


128 


64 


32 


16 


8 


4 


2 


1 



2 hoch Bitnummer 
= Wert des Bits 

Nun muBten wir die Werte, die in die Speicherzellen von F400H bis F407H geschrieben 
werden sollen, berechnen. Dazu addieren wir in jeder Zeile die Werte der Punkte, die ge- 
setzt werden sollen. 



Berechnung: 








Befehl: 




Zeile 1: 




128 + 16 + 2 


= 146 


>POKE &HF400, 


146 


Zeile 2: 




32 + 8 


= 40 


>POKE &HF401, 


40 


Zeile 3: 




64 + 4 


= 68 


>POKE &HF402, 


68 


Zeile 4: 




64 + 4 


= 68 


>POKE &HF403, 


68 


Zeile 5: 64 + 


32 + 


16 + 8 + 4 


= 124 


>POKE &HF404, 


124 


Zeile 6: 




64 + 4 


- 68 


>POKE &HF405, 


68 


Zeile 7: 




64 + 4 


= 68 


>POKE &HF406, 


68 


Zeile 8: 









>POKE &HF407, 






Wenn Sie alle rechts aufgefuhrten „POKEs" ausgefOhrt haben, ist das „A" definiert! 
Mit 

>PRINT CHR $ ( 128 ) 

A 

READY 

>■ 

kOnnen Sie es sehen. 

Genau nach obigem Muster kOnnen Sie beliebige Zeichen definieren. Wollten Sie nun 
ASCtl-Zeichen Nummer 129 programmieren, mOssen Sie nur die „POKE"-Adressen ent- 
sprechend Sndern: Nr. 129 belegt die Speicherzellen von F408H bis F40FH, Zeichen Nr. 
130 die Speicherzellen von F410H bis F417H usw. 
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35. Die Tonausgabe 



Das Colour-Genie gibt den Ton Qber den Lautsprecher Ihres Fernsehers aus. For die Ton- 
ausgabe gibt es im Genie-Basic 2 Befehle: 

Der „PLAY"-Befehl 
Allgemeines Format: 

PLAY {Kanal, Oktave, Note, Lautstarke) 

Fur jedes der obigen Worte geben Sie eine Variable oder eine teste Zahl ein. Rechenaus- 
drucke im „PLAY"-Befehl sind nicht zulassig! Dabei gilt folgendes Schema: 



Kanal 



1...3 



Oktave 


1. 


.8 


Note 


1. 


..7 


Note 


8. 


.12 


Lautstarke 


0. 


.15 



Zur Auswahl eines Kanals. (Dadurch, daB 3 Kanale zur Verfogung 
stehen, kdnnen auch Akkorde programmiert werden.) 

Zur Wahl der gewunschten Oktave. 

Fur die Noten der C-dur-Tonleiter (entsprechend den wei&en Ta- 
sten beim Klavier). 

FQr die Halbtone (entsprechend den schwarzen Tasten). 

Dieser Wert gibt die Lautstarke der jeweiligen Note an. Bei Laut- 
starke ist nichts mehr zu hdren — diesen Wert also fur Pausen 
benutzen. 



Ein Beispiel: 

>PLAY ( 1,4,1,15 ) 

gibt ein C in der 4. Oktave bei voller Lautstarke aus. 



II III |l III II III 



E F 

I I 
34 



H 



6 



8 9 101112 

Oktave 3 



e f 

I I 
34 



e f 

I I 
34 



8 9 101112 

Oktave 4 



8 9 10T112 

Oktave 5 
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Das folgende Programm spielt ein bekanntes Stock: 

>10 COLOUR 16 : CLS : PRINT @ 410, "Der Flohwalzer" 

>20 R = RND ( 50 ) +30 

>30 GOSUB 130 : GOSUB 130 

>40 GOSUB 170 

>50 L = 2 : PLAY ( 1,2,10,15 ) : GOSUB 200 : GOSUB 180 

>60 PLAY { 1,2,9,15 ) : GOSUB 200 : GOSUB 180 

>70 PLAY { 1,2,8,15 ) : GOSUB 200 : GOSUB 150 

>80 GOSUB 160 : GOSUB 160 

>90 GOSUB 170 : PLAY ( 1,2,8,15) : L = 2 : GOSUB 200 : L = 2 : GOSUB 190 

>100 PLAY ( 1,2,9,15) : GOSUB 200 : GOSUB 190 

>110 GOSUB 140 

>120 PLAY ( 1,1,1,0 ) : PRINT @ 920, ; : INPUT'Bitte <RETURN> drOcken" ; A$ : 

GOTO 10 

>130 GOSUB 170 

>140 L = 2 : PLAY ( 1,2,10,15 ) : GOSUB 200 : GOSUB 180 : GOSUB 180 : RETURN 

>150 L = 2 : GOSUB 190 : GOSUB 190 : RETURN 

>160 GOSUB 17Q : PLAY ( 1,2,8,15 ) : L = 2 : GOSUB 200 : GOSUB 150 : RETURN 

>170 L=1 : PLAY (1,3,9,15): GOSUB 200 : PLAY ( 1,3,8,15 ) : GOSUB 200 : RETURN 

>180 PLAY ( 1,3,12,15) : PLAY ( 2,4,10,15 ) : L = 2 : GOSUB 200 : PLAY { 2,1,1,0 ) : 

RETURN 

>190 PLAY ( 1,3,7,15 ) : PLAY ( 2,4,4,14 ) : L = 2 : GOSUB 200 : PLAY ( 2,1,1,0 ) : 

RETURN 

>200 FOR A1=1 TO L*R : NEXT : RETURN 



Der „SOUND"-Befehl 
Allgemeines Format: 

>SOUND R,N 

mit R = 0. ..15 und N = 0. -.255. 

Mit diesem Befehl wird der Wert N direkt in das Register R des PSG (Programmable 
Sound Generator) geladen. 

Eine Auflistung der PSG-Register finden Sie im Anhang. 

Ein Programmbeispiel zum „SOUND"-Befehl: 

>10 CLS : PRINT "SCHUSS-GERAEUSCH" 

>20 FOR I = 1 TO 11 

>30 SOUND 6,30 : SOUND 7,7 : SOUND 8,16 : SOUND 9,16 

>40 SOUND 10,16 : SOUND 12,16 : SOUND 13,0 

>50 FOR B = 1 TO 150 : NEXT 

>60 COLOUR A : PRINT" PENG", 

>70 NEXT 

In Anhang B finden Sie eine genaue Beschreibung, wie der PSG programmiert wird. 

Ferner ist in Anhang K ein Programm aufgelistet, das in Form einer Bildschirmmaske ein 
sehr komfortables Hilfsmittel zum Experimentieren darstellt. 
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36. SteuerknQppel und 
externe Tastaturen 



Das Colour-Genie bietet die Moglichkeit, zwei SteuerknQppel (analog Joysticks) und zwei 
externe Tastaturen (external Keypads) anzuschlieBen. Diese konnen als Zusatzgerate er- 
worben werden. Das Basic des Colour-Genies unterstQtzt SteuerknQppel und externe Ta- 
staturen mit folgenden Befehlen: 

JOY1X 

Gibt die X-Koordinate des 1. SteuerknQppels an. 

Z B * 

>PRINT JOY1X 

JOY1Y 

Gibt die Y-Koordinate des 1. SteuerknQppels an. 

Z. B.: 

>PRINT JOY1Y 

JOY2X 

Gibt die X-Koordinate des 2. SteuerknQppels an. 

Z. B.: 

>X = JOY2X 

JOY2Y 

Gibt die Y-Koordinate des 2. SteuerknQppels an. 

Z. B.: 

>Y = JOY2Y 

Der Bereich der SteuerknQppel-Koordinaten liegt von 1...64. 

KEYPAD1 

Ergibt den Wert einer gedrQckten Taste der 1. Tastatur. 

Z. B.: 

>PRINT KEYPAD1 

KEYPAD2 

Ergibt den Wert einer gedrQckten Taste der 2. Tastatur. 

Z. B.: 

>PRINT KEYPAD2 
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37. Programmierbarer Cursor 



Beim Einschalten ist der Cursor des Colour-Genies auf schnell blinkend und voile GroBe 
eingestellt. Man kann jedoch GroBe und Blinkfrequenz programmieren und den Cursor 
auch nach folgendem Schema ganz abschalten: 




1 
2 
3 
4 
5 
6 
7 



POKE 16409, N1 
POKE 16410, N2 + N3 



Dabei haben N1, N2 und N3 folgende Bedeutung 
N1: 



N2: 



Gibt die Nummer der untersten Zeile des Cursors gemSB der obigen Skizze an. 
Werte von 0. . .7 sind zuiassig. 

Gibt die Nummer der obersten Zeile des Cursors an. Auch hierfur ist ein Wert von 
0. . .7 einzusetzen. 



N3: N3 darf 4 verschiedene Werte annehmen: 



N3 = 0: 

N3 = 32 

N3 = 64: 

N3 = 96: 



Dazu ein Beispiel: 



Cursor blinkt nicht 
kein Cursor 

schnell blinkender Cursor 
langsam blinkender Cursor 



Sie wollen einen Cursor haben, der sich nur auf Cursorzeile 5, 6 und 7 erstrecken soil, 
also die unteren drei Cursorzeilen {siehe obige Skizze). Dabei soil er langsam blinken. 
Dies wird durch folgende „POKEs" erreicht: 



>POKE 16409,7 

READY 

>POKE 16410,101 

READY 

>■ 



(101 = 5 + 96 ) 



Achten Sie bitte, wie bei alien „POKE"-Befehlen, darauf, daB Sie die POKE-Adressen 
richtig eingeben — ein falsches „POKE" kann namlich katastrophale Folgen fur Ihr Pro- 
gramm haben. 
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ANHANG 

A. Der CRTC 



Hinweis: 

Dieses Kapitel ist for den Programmier-Anfanger wahrscheinlich zu schwierig. FUr das 

Verstandnis des Genie-Basic ist es aber auch nicht ndtig. 

CRTC ist eine Abkurzung for Cathode Ray Tube Controller. Darunter hat man ein hochin- 
tegriertes Bauteil zu verstehen, das saint! iche Bildschirmausgaben des Colour-Genies or- 
ganisiert. Dabei sind sogar Werte wie das Bildschirmformat Oder die Synchronisation des 
Fernsehers frei einstellbar. 

Im Colour-Genie Basic sind die Werte des CRTCs auf folgende Adressen gelegt: 

Fur Text-Modus: 



Adresse 
(dezimal) 

17136 
17137 



Pal-Wert beim 

Einschalten Inhalt, Kommentar 



1 




Cursor-Adresse 
Siehe Anm. 1 



17138 
17139 



4 


Bildschirmspeicher 
Startadresse = 4400H 


17140 
17141 


7 
196 


Cursor End Raster 

Cursor Blinken, Cursor Start Raster. (Siehe Anm. 1) 


17142 


7 


Zeichen-End-Raster 


17143 


160 


Interlace and Skew 


17144 


30 


Vertikale Synchronisationsposition. Ermoglicht es, das Bild 
vertikal zu versetzen. 


17145 


24 


Zeilenzahl 


17146 





Vertikale Justierung — GegenstOck zum Bildfang beim Fernse- 
her. 


17147 


38 


Vertikale Gesamtzahl der auf dem Fernseher angezeigten 
Elektronenstrahl-Linien. 


17148 


150 


Lange des Zeilensynchronpulses 


17149 


52 


Horizontale Synchronisationsposition. Ermdglicht das Bild hori- 
zontal zu versetzen. 


17150 


40- 


Zeichen pro Zeile 



17151 



70 



Horizontale Abtastgeschwindigkeit 
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Wird auf hochauflosende Grafik umgeschaltet, so wird der CRTC mit neuen Werten pro- 
grammiert. Das ist auch der Grund dafGr, daB Grafik und Text nicht gemischt werden 
konnen. 



Werte fQr Grafik-Modus: 

Adresse Pal-Wert beim 
(dezimal) Einschalten 



Inhalt, Kommentar 



17152 
17153 






Cursor-Adresse 
(Siehe Anm. 1) 




17154 
17155 



8 


Bildschirmspefcher 
Startadresse = 4800H 




17156 
17157 



32 


Cursor End Raster 

Cursor Blinken, Cursor Start Raster. (Siehe Anm. 1) 




17158 


1 


Zeichen-End-Raster 




17159 


32 


Interlace and Skew 





17160 
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Vertikale Synchronisationsposition. Ermdglich es, das Bild ver- 
tikal zu versetzen. 



17161 


96 


Zeilenzahl 




17162 


31 


Vertikale Justierung 




17163 


126 


Vertikale Gesamtzahl 




17164 


150 


Lange des Zeilensynchronpulses 




17165 


52 


Horizontale Synchronisationsposition 




17166 


40 


Zeichen pro Zeiie 





17167 



70 



Horizontale Abtastgeschwindigkeit 



Anm. 1: Diese Werte sind 
programmiert. 



im Genie-Basic irrelevant, da das Basic seinen eigenen Cursor 



Die oben aufgelisteten Adressen gelten nur fur den Betrieb im Basic. Direkt adressiert 
werden kann der CRTC Qber die beiden Ports 250 und 251 (dez.). Dabei wird uber Port 
250 die Registernummer des CRTC ausgegeben und uber Port 251 der jeweilige Wert. 
(Register des CRTC entspricht Basic-Adresse 17151 bzw. 17167 im Grafikmodus. Regi- 
ster 15 der Adresse 17136 bzw. 17152. Genaue Beschreibungen der CRTC-Register ent- 
nehmen Sie den Applikationsschriften der Hersteller. Die Typenbezeichnung des CRTCs 
ist 46505S.) 

AbschlieBend noch ein Programmzeile, die zeigt, wie man die Bildschirmausgabe vom 
Basic her steuern kann: 



>10 FORB=1TO10 : FORA = 52TO10STEP— 1 : POKE17149.A 
FORA = 10TO52 : POKE17149.A : LGR : NEXT : NEXT 



LGR 



NEXT 



Beachten Sie, da6 nach jedem „POKE" der aktive Modus 
neu aufgerufen werden muB. 



in diesem Falle „LGR" — 



116 



Der PSG 



Hinweis: Dieses Kapitel ist for den Programmier-Anfanger wahrscheinlich zu schwierig. 
FUr das Verstandnis des Genie-Basic ist es aber auch nicht notig. 

PSG ist eine AbkQrzung for Programmable Sound Generator. Dies ist, wie der CRTC, ein 
hochintegriertes Bauteil, das die gesamte Tonausgabe des Colour-Genies ubernimmt. 
Ausgegeben wird der Ton tiber den Lautsprecher des Fernsehers. Dabei konnen bis zu 3 
Tonkanale mit Frequenz, Hoilkurve und Rauschen belegt werden. 

Programmiert wird der PSG, ahnlich dem CRTC, durch das Speichern von Werten in die 
PSG-Register. 

Dies ist, wie im Kapitel „Die Tonausgabe" beschrieben, direkt mit dem Befehl „SOUND 
R,N" moglich, wobei der Wert N (0. . .255) in das Register R (0. . .15) Qbernommen wird. 

Es ist ebenfalls mogliph, den PSG uber die beiden Ports 248 und 249 (dez.) zu aktivieren. 

"OUT 248,R : OUT 249, N" entspricht also "SOUND R,N". 

Die PSG-Register: 



R7 



R8 



R0 
R1 


Kanal A Tonfrequenz 


Feineinstellung (0. . 
Grobeinstellung (0. 


.255) 
..15) 


R2 
R3 


Kanal B Tonfrequenz 


Feineinstellung (0. . 
Grobeinstellung (0. . 


.255) 
.15) 


R4 
R5 


Kanal C Tonfrequenz 


Feineinstellung (0. . 
Grobeinstellung (0. 


.255) 
..15) 


R6 


Rauschfrequenz 


Einstellung (0. . .31) 





Aktivierung 



Siehe Tabelle 1 (0—255) 



Kanal A Lautstarke 



Aus. . .Laut (0. . .15) 

16: moduliert mit HQIIkurve 



R9 


Kanal B Lautstarke 


Aus. . .Laut <0. . .15) 

16: moduliert mit HQIIkurve 


R10 


Kanal C Lautstarke 


Aus. . .Laut (0. . .15) 

16: moduliert mit HQIIkurve 


R11 
R12 


HQIIkurve Frequenz 


Feineinstellung (0. . .255) 
Grobeinstellung (0. . .255) 


R13 


Hullkurvenform 


Siehe Tabelle 2 (0. . .15) 


R14 


Parallel port 1 


(Druckerport, Joystick . . .) 


R15 


Parallel port 2 


(Druckerport, Joystick . . .) 
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Register 7 Aktivierung der Kanale for TGne und Rauschen und festlegen ob Eingabe- 
oder Ausgabe-Ports. 



Bit 


Ton Kanai A 




Wenn gesetzt, kein Ton. 




Bit 1 


Ton Kanal B 
Ton Kanal C 




Wenn gesetzt, kein Ton. 




Bit 2 


Wenn gesetzt, kein Ton. 




Bit 3 


Rauschen Kanal 


A 


Wenn gesetzt, kein Rauschen. 




Bit 4 


Rauschen Kanal 


B 


Wenn gesetzt, kein Rauschen. 




Bit 5 


Rauschen Kanal 


C 


Wenn gesetzt, kein Rauschen. 




Bit 6 


I/O Port 1 




Wenn gesetzt, Ausgabe. 
Wenn rtickgesetzt, Eingabe. 




Bit 7 


I/O Port 2 







Beispiei: 

Angenommen, wir wollen uber Kanal A einen Ton, Qber Kanal B Ton und Rauschen und 
uber Kanal C nichts ausgeben sowie Port 1 als Eingabe-Port benutzen und Port 2 zur 
Ausgabe verwenden: 

Wir schreiben in Register 7 also: 

Bit 2, Bit 3, Bit 5, Bit 7; alle anderen Bits sind zuruckgesetzt: 4 + 8 + 32 + 128 = 172, also 
"SOUND 7,172". 



WERT (DEZ.) 




KURVENFORM 



4 
8 
10 
11 
12 
13 
14 



SNMVTnT 
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Ein Beispiel fur die Programmierung des PSG: 

Folgendes Programm erzeugt so etwas Ahnliches wie Dampflokgerausche: 

>10 SOUND 6,10 : REM Rauschfrequenz einstellen 

>20 SOUND 7,247 : REM Rauschen Kanal A aktivieren 

>30 SOUND 8,16 : REM Amplitude auf HQIIkurve setzen 

>40 SOUND 12,25.: REM Hullkurvenfrequenz festlegen 

>50 SOUND 13,8 : REM Art der HQIIkurve festlegen 

>60 FOR =1 TO 1000 : NEXT 

>70 PLAY ( 2,5,3,15 ) : REM 2= Kanal B aktiviert 

>80 FOR A = 1 TO 500 : NEXT 

>90 PLAY (2410) 

>100 SOUND 7,247 : REM Kanal B abstellen 

>110 SOUND 8,15 : REM Amplitude auf konstant voile Lautstarke 

>120 FOR A = 1 TO 23 

>130 FOR B = 1 TO 200 : NEXT 

>140 SOUND 8,16— A / 1.5 : REM Lautstarke herabsetzen 

>150 NEXT 

An dieser Stelle wird nochmal auf Anhang K hingewiesen, in dem ein Programm zur Pro- 
grammierung des PSG aufgelistet ist. 



119 



C- Control Codes 



Mit „PRINT CHR$(X)" und Werten von X<32 kdnnen diverse Steuerfunktionen ausge- 
fUhrt werden, wobei nicht alle Werte von 0. . .31 belegt sind, sondern nur die hier aufgeli- 
steten: 

Code Funktton 

8 L6schen des letzten Zeichens, Cursor ein Zeichen nach links. 

10—13 Carriage Return (Cursor zum Anfang der nachsten Zeile) 

14 Cursor anschalten 

15 Cursor ausschalten 

24 Backspace cursor (Cursor eine Position nach links) 

25 Advance cursor (Cursor eine Position nach rechts) 

26 Downward linefeed (Cursor eine Zeile tiefer) 

27 Upward linefeed (Cursor eine Zeile h6her) 

28 Home cursor (Cursor auf Bildschirmposition 0) 

29 Cursor zum Zeilenanfang 

30 Loschen bis zum Ende der Zeile 

31 Ldschen bis zum Ende des Bildschirms 



Mit folgendem kleinen Programm konnen Sie die Steuercodes ausprobieren: 

>10 CLS 

>20 INPUT "Eingabe des Steuercodes ( 8... 31 )" ; X 

>30 PRINT"ABC"CHR$ ( X ) ; " DEF" 

>40 GOTO 20 
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D 



Speicherbereiche und Grenzen 
der Programmierung 



Bereiche: 

ganze Zahlen 
einfache Genauigkeit 
doppelte Genauigkeit 



String Bereich 

Zeilennummern 

LSnge der Programmzeilen 



—32768 bis +32767 einschl. 

— 1.701411 E + 38 bis + 1.701411 E + 38 einschl. 

— 1.701 41 1834244556 D + 38 bis 

+ 1.70141 1834244556 D + 38 einschl. 

bis 255 Zeichen 

Bis 65529 einschl. 

bis zu 255 Zeichen 



Speicherplatzbedarf 

Eine Programmzeile braucht minimal 5 Bytes: 
Zeilenummer: 2 Bytes 

Zeilenpointer: 2 Bytes 

Carriage Return (Zeilenvorschub): 1 Byte 

Dazu braucht jeder Befehl, Operator, Variablenname, Spezialzeichen und Konstantenziffer 
ein Byte. 

Dynamische Speicherplatzzuteilung (bei Programmausfuhrung) 



ganzzahlige Variablen 
Variablen einfacher Genauigkeit 
Variablen doppeiter Genauigkeit 
String Variablen 

Feldvariablen 

Jede aktive FOR-NEXT-Schleife 

Jedes aktive GOSUB (noch kein Re- 
turn) 

Jede Klammerebene 



5 Bytes jede 
7 Bytes jede 

11 Bytes jede 

6 Bytes minimal 

(3 fOr Variablennamen, 3 for Lange und 
Pointer, 1 for jedes Zeichen) 

12 Bytes minimal 

(3 for Variablennamen, 2 fQr Gr&Be, 1 for Anzahl 
der Dimensionen und 2, 3, 4 oder 8 fQr jedes 
Element, abhangig vom Typ) 

16 Bytes 

6 Bytes 

4 Bytes und 12 Bytes for Zwischenergebnisse 
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E. AnschluBmoglichkeiten beim 
Colour-Genie 



* *l"l I 1 * * * / 




S^f 


Schalter 
Monitor 


Pardlel- 
Ausgang 










Audio Verstarker 


Progromm-Kassetfen 




Kass 


etten-Rekorder 




Serieller i 


^usgang 






Lie 


rhtgriffel 
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F- ASCII Code 



hex 


dez. 


ASCII 


hex 


dez. 


ASCII 


hex 


dez. 


ASCII 


hex 


dez. 


ASCII 


00 





NUL 


20 


32 


Space 


40 


64 


@ 


60 


96 


) 


01 


1 


SOH 


21 


33 


! 


41 


65 


A 


61 


97 


a 


02 


2 


STX 


22 


34 


" 


42 


66 


B 


62 


98 


b 


03 


3 


ETX 


23 


35 


# 


43 


67 


C 


63 


99 


c 


04 


4 


EOT 


24 


36 


$ 


44 


68 





64 


100 


d 


OS 


5 


ENQ 


25 


37 


% 


45 


69 


E 


65 


101 


e 


06 


6 


ACK 


26 


38 


& 


46 


70 


F 


66 


102 


f 


07 


7 


BEL 


27 


39 


' 


47 


71 


G 


67 


103 


g 


08 


8 


BS 


28 


40 


( 


48 


72 


H 


68 


104 


h 


09 


9 


HT 


29 


41 


> 


49 


73 


I 


69 


105 


i 


0A 


10 


LF 


2A 


42 


* 


4A 


74 


J 


6A 


106 


J 


OB 


11 


VT 


2B 


43 


+ 


4B 


75 


K 


6B 


107 


k 


OC 


12 


FF 


2C 


44 


f 


4C 


76 


L 


6C 


108 


I 


OD 


13 


CR 


2D 


45 




4D 


77 


M 


6D 


109 


m 


OE 


14 


SO 


2E 


46 




4E 


78 


N 


6C 


110 


n 


OF 


15 


SI 


2F 


47 


/ 


4F 


79 


O 


6F 


111 


o 


10 


16 


DLE 


30 


48 





50 


80 


P 


70 


112 


P 


11 


17 


DC1 


31 


49 


1 


51 


81 


Q 


71 
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q 


12 


18 


DC2 


32 


50 


2 


52 


82 


R 


72 


114 


r 


13 


19 


DC3 


33 


51 


3 


53 


83 


S 


73 


115 


s 


14 


20 


DC4 


34 


52 


4 


54 


84 


T 


74 


116 


t 


15 


21 


NAK 


35 


53 


5 


55 


85 


U 


75 


117 


u 


16 


22 


SYN 


36 


54 


6 


56 


86 


V 


76 


118 


V 


17 


23 


ETB 


37 


55 


7 


57 


87 


w 


77 


119 


w 


18 


24 


CAN 


38 


56 


8 


58 


68 


X 


78 


120 


X 


19 


25 


EM 


39 


57 


9 


59 


89 


Y 


79 
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y 


1A 


26 


SUB 


3A 


58 




5A 


90 


z 


7A 


122 


z 


1B 


27 


ESC 


3B 


59 


t 


5B 


91 


[ 


7B 


123 


i 


1C 


28 


FS 


3C 


60 


< 


5C 


92 


t 


7C 


124 


* 


10 


29 


GS 


3D 


61 


= 


5D 


93 


] 


7D 


125 


J 


1E 


30 


RS 


3E 


62 


> 


5E 


94 


A 


7E 
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IV 


1F 


31 


US 


3F 


63 


? 


5F 


95 


— 


7F 


127 


DEL 
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G. Speicherbelegung 



0000 

bis 

3FFF 


16K BASIC ROM 


4000 

bis 

43FF 


Kommunikationsbereich 
(CRTC, Kassetten-Status, D 


4400 

bis 

47FF 


Bildschirmspeicher 
Textmodus 


4800 

bis 

57FF 


Bildschirmspeicher fur 
hochaufl6sende Grafik 


5800 

bis 

7FFF 


Benutzer RAM 


8000 

bis 

BFFF 


Weitere 16K Benutzer RAM 
(nachrOstbar im Gerat) 


COOO 

bis 

EFFF 


ROM-Einschubkassette 
(Cartridge) 


FOOO 

bis 

F3FF 


Speicher for die Zeichenfar 


F400 

bis 

F7FF 


Speicher for programmierte 


F800 

bis 

FBFF 


Tastatur 


FCOO 

bis 

FFFF 


ROM-Einschubkassette 
(Cartridge) 



In diesem Zusammenhang noch die Erklarung der „MEM SIZE?" Frage, die der Computer 
beim Einschalten stellt. Als Antwort kdnnen Sie hier eine Sstellige Dezimalzahl eingeben. 
Wenn Sie einen korrekten Wert eingeben, sind alle Speicherzellen oberhalb dieses Wer- 
tes reserviert, d. h. sie werden vom Basic nicht mehr benutzt. Dadurch stehen Sie dann 
z.B. for Maschinenspracheroutinen zur Verfogung. 
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H . Tastatur-Speicher 



Beim Colour-Genie 1st die Tastatur in den Speicher gelegt, d. h. jede Taste belegt ein Bit 
im Speicher: 



ADRESSE 
(HEX) 



BITNR. 

F801 

F802 

F804 

F808 

F810 

F820 

F840 

F880 






1 


2 


3 


4 


5 


6 


7 


@ 


A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 





P 


Q 


R 


S 


T 


U 


V 


W 


X 


Y 


Z 




F1 


F2 


F3 


F4 





1 


2 


3 


4 


5 


6 


7 


8 


9 


: 


) 


J 


— 


• 


/ 


RET. 


CLR 


BRK 


♦ 1 


1 


^ 


■* 




SHIFT 


M.S. 


i 


RPT 


CTRL 






i 



Sie konnen also Tasten auch mit dem „PEEK"-Befehl abfragen. Z. B.: 

>10 PRINT PEEK ( &HF889 ) : GOTO 10 
>RUN 

Wenn Sie jetzt die <SHIFT>, <MOD SEL>, <RPT> oder <CRTL>-Taste drOcken, wird 
der entsprechende Wert angezeigt. 
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I. 



Die PRINT w -Positioner! des 
Colour-Genies (LGR-Modus) 



10 



15 



11 



20 



25 



30 



35 





40 

80 
120 
160 

200 5 
240 
280 
320 
360 
400 10 
440 
480 
520 
560 

600 15 
640 
680 
720 
760 
800 20 _ 
840 
880 
920 



TT 



T-r 
i i 



TT 



10 
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20 



25 



30 



1 35 



40 



39 

79 

119 

159 

199 

239 

U279 

319 

359 

399 

439 

479 

519 

559 



639 
679 
719 
759 
799 
839 
879 
919 
959 



40 
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J. Die Grafik-Koordinaten des 
Colour-Genies (HGR-Modus) 



160Spalten 




Farben: 

FCOLOUR 1 
FCOLOUR 2 
FCOLOUR 3 
FCOLOUR 4 



schwarz 
blau 
orange 
grUn 
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Ki Programme 



Auf den folgenden Seiten finden Sie die Listungs folgender vier Programme: 

1.) „CODE BREAKER" 

Dies ist ein relativ einfaches Denkspiel, bei dem es darum geht, eine 4stellige Zah- 
lenkombination herauszufinden. 
Das Program m erklart sich selbst. 

2.) ..SABOTAGE" 

Sabotage ist ein Grafikspiel, bei dem die definierbaren Zeichen Ihres Colour-Genies 
auf ansprechende Weise benutzt werden. Auch dieses Spiel ist selbsterklarend. 

3.) „SOUND EDITOR" 

Mit Hilfe dieses Programms kormen Sie leicht alle Moglichkeiten des PSGs erschlie- 
Ben. Dabei werden samtliche Register bitweise auf dem Bildschirm editiert. 
Eine Beschreibung der Funktion der einzelnen PSG-Register finden Sie in Anhang B. 
Die genaue Bedienung des „Sound-Editors" wird durch das Programm selbst erklart. 

4.) „EDITOR FOR DEFINIERBARE ZEICHEN" 

Wie bereits in Kapitel 33 beschrieben ist, kann man beim Colour-Genie bis zu 128 
Zeichen frei definieren. Da diese Programmierung gewohnlich Zeichen fur Zeichen 
und obendrein noch bitweise geschieht, ist das Ganze recht aufwendig. 
Mit Hilfe dieses Programms konnen Sie nun bis zu 64 Zeichen gleichzeitig auf dem 
Bildschirm bequem editieren. AbschlieBend bietet das Programm sogar die Mdglich- 
keit, von sich aus ein neues Programm zu erstellen, das die entworfenen Zeichen in 
„DATA"-Zeilen abspeichert. 

Nun noch einige allgemeine Worte zur Handhabung der auf den nachsten Seiten folgen- 
den Listungs: 

Alle vier Programme sind von routinierten Programmierern extra fur dieses Handbuch ge- 
schrieben. 

Daher enthalten diese Programme eine Vielzahl von Programmtricks. Seien Sie also nicht 
verargert, wenn Sie nicht alle Programmschritte verstehen. Vorsichtig sollten Sie beim 
Abtippen der Programme sein, eine falsche Zahl kann Ihnen z. B. eine Menge Schwierig- 
keiten bereiten. Die beste Losung ist, wenn Ihnen jemand die Prog ram mzeilen diktiert, 
der moglichst gleichzeitig Ihre Eingaben kontrolliert. Sollten Sie aber die Programme al- 
lein eingeben, kontrollieren Sie am besten jede Zeile, nachdem Sie sie eingegeben ha- 
ben. Dies kostet zwar etwas Zeit, kann Ihnen aber eine schwierige Fehlersuche ersparen. 



(In den Listings entspricht § der < @ > -Taste, A der < *■ >-Taste) 
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1. Code Breaker 



lO CLS:RANDOMlDEFINTA-Z 

20 C0L0UR9 

30 PRINT" *** CODE BREAKER ***" 

40 PRINTSTRING*(40,217)s 

50 FQRA=lTOB:F0R6=lTO12sPLAY<l,A,B,ll) JNEXT:NEXT:PLAY(1,1, 1,0? 

60 COLOUR 16 

70 PRINT"Sie soil en einen 4-stelligen Cade 

BO PRINT"heraus-finden. Dieser Code setzt sich 

90 PRINT*aus 4 Zahlen lusammen, Jede Zahl 

lOO PRINT"kann eine Wert von 1...9 annehmen. 

HO PRINT"Dabei kommen keine Zahlen doppelt vor. 

120 PRINT 

130 PRINT"Nach jeder Eingabe gibt der Computer an,"; 

140 PRINT"wieviele Zahlen richtig sind, aber an 

150 PRINT"der -falschen Stelle stehen <TREFFER) , 

160 PRINT"und wieviele Zahlen richtig sind, 

170 PRINT"die auch an der richtigen Stelle 

1BO PRINT"stehen (VOLLTREFFER) . 

190 PRINT"Das Spiel ist beendet, wenn Sie 4 

200 PRINT"Volltre-ffer hatten. " 

210 PRINT 

220 PRINT"Zur Eingabe Ihres 4-stelligen Versuchs 

230 PRINT"geben Sie einfach die 4 Zahlen ein 

240 PRINT"und druecken anschliessend <RETURN>. 

250 PRINT-Korrekturen wie ueblich rait <"CHR»<253) ">. " 

260 COLOUR?: PRINTSTRINB* (40, 217) j 

270 A*=INKEY* 

280 C0L0URRND(16) 

290 PRINTS920,"Zum Start <RETURN> druecken !"; 

300 PLAY(1,4,5,11> 

310 F0RA=0T0200sNEXT 

320 PLAY (1,4, 5, O) 

330 PRINTS920,CHR*(3i) ; 

340 FQRA=0T0200:NEXT 

350 I*=INKEY»:IFI*=""THEN270 

360 I F ASC ( I ♦ > * 1 3THENCLSELSE270 

370 COLOUR16 

380 PRINTiO,"Nr. Eingabe Volltre-f-f er Tref-fer" 

390 PRINTSTRINS*(40,20S)3 

400 F=0»FORA=lT04 

410 A(A)=RND<9> 

420 F0RB=A-1T00STEP-1 » IFA ( A) =A (B) THENF=i s NEXT; B0T041OELSENEXT 

430 IFF=1THENF=0:G0T0410 

440 NEXT 

450 N=l 

460 PRINTUSINB"##" ; N} : PRINTCHR* (32) CHRt (225) CHR* (32) ; s PRINTSTR INS* (9, 32) CHR* (225 

) STRING* ( 14,32) CHR* (225) 5 STRINB* (25, 24) ; 

470 FORA=5TOSt PRINTCHR* ( 14) j s 60SUB740! A ( A) =Vs NEXT 

480 V=0sT=0sN=N+l 

490 PLAYU,1,7,15> 

500 FORA= 1 T04 1 B < A ) =A ( A+4 ) : NEXT 

510 FORA=lT04 

520 P=8-A*2i PLAY < 1 , 1 , P, 15) 

530 IFA < A) =B (A) THENV=V+1 : FORB=lT04ELSENEXTs BOT0560 

540 IFA(A)=B(B)THENB<B)=0 

550 NEXT! NEXT 

560 PLAY < 1 , 1 , 1 , ) t F0RA= 1 TD4 : F0RB= 1 TQ4 1 I FA=BTHEN6 1 

570 IFB(B>=0THEN610 

5BO I FB ( B ) =A ( A ) THENT=T+ 1 s FORC= 1 T04ELSE6 1 

590 IFA(A)=B(C)THENB(0=0 

600 NEXT 

610 NEXT! NEXT 
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62<> PR1NTSTRING*<5,25); 

630 I F V=OTHEN640ELSEFORA= 1 TOV : PR I NT - * " s s NEXT 

640 F0RA=VT04 : PR I NT" ";:NEXT 

650 PRINTSTRING*<3,25)s 

6a0 IFT=OTHEN670ELSEF0RA=lT0TiPRINT ,, + ";:NEXT 

670 PRINT 

6B0 IFV* '4THEN460 

690 F0RA= 1 TO 1 : B6RD : FORB= 1 T030 : H£X T s NBBRD : F0RB= 1 T030 t NEXT: NEXT s COLOURS I PR I NT t PR I 

NT"Sie brauchten ,, N-l"Versuche, Glueckwunsch " 

7<X> PR I NT "< RETURN > fuer ein neues Spiel ' " 

710 IFINKEY*=""THEN710 

720 CLS:G0TO370 

7 30 G0T0460 

740 A*=IK*EY*sV=VAL<A*> ! IF <A*-CHR* <31 >ORA*=CHR*(B) ) ANDA >5THENA= A- 1 :GOT079OELSEIF 

V=0THEN740 

750 P=A-4s Q=5+As PLAY ( 1 , 4 , P.Q) : FORP=lT010O!NEXTs PLAY ( 1 , 4 . 1 .0) 

760 IFA=8THENPRINTCHR* <V+48> CHR* <32> ; : G0T0810 

770 PR I NTCHR* ( V+48 > CHR» < 32 ) CHR* < 1 5 ) ; 

780 RETURN 

790 G0SUB820 : PR I NTCHR* < 8 ) s CHR* (8)5" " ; CHR* (8) CHR* ( 8) j 

BOO GOSUB740:--TURN 

810 A*= I NKEY* : I F A*=CHR* < 3 1 ) OR A*=CHR* < B > THEN790ELSE IFA*=CHR* < 1 3 ) THENPR I NTCHR* (15) 

; SRETURNELSE810 

820 SOUND6,30:SOUND7,7:SOUND8, 16: SOUND? f I61SOUNDIO, I61 SOUND 12, 16: S0UND13, OiRETUR 

N 
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2. Sabotage 



lO COLOUR 16 

20 CLS 

30 CLEAR100:DEFINTA-Z:DEFSN8U,Z 

40 PRINT"MACH' DICH BEREIT FUER " **-*• 

50 GOSUBIOOO 

60 BGRD : FORT=2T0350 : NBBRD 

70 CLS 

BO REM CARSTEN SCHMIDT fc KALLE BRAUN 

90 SOUND1 , 8: S0UND3, 9 j SOUNDS, 1 : SOUND6, 2: SDUND7, 7; SOUNDS, 31 : SOUND9, 31 s SOUND10, 24: S 

DUND12, BO: SOUND 13, 3 

lOO PR1NTTAB< 16) "Sabotage" 

HO PRINTTAB(16) STRIN6*(8,211 ) 

120 PRINT§B87,"Druecke (A) -fuer Anleitung, 

<S) fuer Start."; . 

130 A*=INK£Y*: IFA*=" "THENB6RD: NBGRD: B0T0130 V 
140 IFA*0"S"ANDA*0"A"THEN130 
150 IFA*="A ,, B0SUBlO < ?O 
160 CLS: IFA*="S"S0SUB1120 
170 CLS 

ISO PRINT§15,"ZEIT: "; 

190 K=0:A*=CHR*(12B):B*=CHR*<144)+" "+CHR* ( 146) +CHR*(147)+" "+CHR*< 149>+CHR*<150 
> :C*="":F0RT=160T0167sC*=C*+CHR*(T) :NEXTT 
200 COLOUR 16 

210 IFI>=0THENPRINT§I«40+J," ") 
220 PRINT§856,A*; :PRINT§896,B*j iPRINT§936,C*; 

230 COLOURlOs PRINTS927, CHR* ( 140) J : COLOUR15: PRINTS935, CHR* < 176) ; : PRINTS944, CHR* ( 1 
76) j:COLOUR10iPRINT§952,CHR*<140); 

240 C0L0UR16:PRINTS920,CHR*<i72);CHR*<175>;CHR*(174);CHR*<173>; 
250 C0L0UR2 

260 FQRX=924T09?6:PRINT§X,CHR*(175) ; : NEXTX:F0RX=928T0934sPRINTSX, CHR* < 175) s : NEXT 
X: FORX=945T0951 : PRINTSX , CHR* ( 173) ; : NEXTX : FORX=953TG958 : COLOUR 1 1 1 FRINT§X, CHR* 1 140 
+INT(RND<3)/2)) ;: NEXTX 
270 COLOUR6 

280 H=RND (17): T=RND ( TT ) : S= 1 : I FRND ( 2) =2 THEN S=- 1 
tiJiUAVl 290 T=H:U=<23-H)/4O0 



VW)> 300 IF S=l THEN Q=l ELSE Q=3B 



'■>&}. 
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310 F0RX=QT020STEPSs IF X>20THENZ=X-40ELSEZ=X 

320 P=153+S*16:V=INT(U*Zft2+T):PRINT§V*40+X,CHR*CP);:PRINT§V«40+X+5,CHR*(P+S); 

330 FOR Y=1.T0 T:NEXT YiPRINT5V*40+X, " "; :PRINT§V*40+X+S, " "5 

340 ZZ=ZZ-<2: IFZZ<0G0T01170ELSEPRINT520, INT<ZZ) ; 
— 350 IF K>0 THEN 400 

360 I FPEEK ( - 1 984 ) =32THENK=1 ELSE I FPEEK ( - 1 984 ) =64THENK=2ELSEK=0 
-370 0NK6QSUB440,450 

380 IF K=0 THEN NEXTX: GOTO 1030 

390 S0UND1 , 61 SOUND3, 5 1 SOUNDS, 1 1 : SOUND6, 2» SOUND7, 7t SOUND8, 31 : SOUND9,31 : SOUNDIO, 24 

s50UND12,S0:SOUND13,3 ~" 

400 PR I NTS 1*40+ J," "; 
ssj r — 410 I = I~1: IFKOTHEN K=0:NEXTX:G0TQ1040 

\ 420 IF< <I>V-Z2)«<I<V+Z2>>*< <J=X)+<J=X+S) >THENPRINTSI*40+J, " "j IGOSUB10105SOTO190 
\ 430 PRINTS I *40+J, CHR* (177) j : NEXTX J60T0103O 
~"~440 0=15: 1=22: RETURN 

450 J=24:I=22:RETURN 

460 D ATA048 , 048 , 048 , 048 , 048 , 048 ,048,048 

470 D AT AOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 

480 DAT AOOO, OOO, OOO, OOO, OOO, OOO, 000,000 

490 DAT AOOO , OOO , 000 , OOO , OOO , OOO , OOO , OOO 

500 DAT AOOO , OOO , OOO , 000 , OOO , OOO , OOO , OOO 

5 1 O DAT AOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 

520 DAT AOOO , 00,0 , OOO , OOO , OOO , OOO , OOO , OOO 

530 DAT AOOO , OOO , 000 , OOO , OOO , OOO , OOO , 000 

540 DATAOOO, 000, 002, 031 , 031 , 002, OOO, OOO 



lA* 
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550 DATAOOO , 003 , 007 , 254 , 254 , 007 , 003 , OOO 

560 DATAOOO, 000, OOO, 000,000, OOO, 000,000 

570 DATAOOO , OOO , OOO , OOO , 000 , OOO , OOO , OOO 

580 DATAOOO, OOO, OOO, OOO, 024,062,097, 171 

590 DATAOOO , OOO , OOO , OOO , OOO , OOO , 206 , 247 

600 DATAOOO , OOO , OOO , OOO, OOO , OOO , OOO , OOO 

610 DATAOOO, OOO, OOO, OOO, 000,000, OOO, OOO 

620 DATA048, 048, 048, 048, 04B, 048, 048, 048 

630 DATAOOO, OOO, OOO , OOO , OOO , OOO , OOO, OOO 

640 DATAOOO, OOO, 002, O 15 , 03 1 , 055 , 1 27 , 255 

650 DATAOOO, OOO, 192,224,240,216,252,252 

660 DATAOOO, OOO, OOO , OOO , OOO , OOO , OOO, OOO 

670 DATAOOO ,013, 007 , 003 , 003, 003, 003 , 003 

6BO DATAOOO ,214, 252, 1 20 , 232 , 248, 104 , 248 

690 DATAOOO, OOO, 000, OOO, OOO, OOO, 000, 000 

700 DATAOOO, OOO, OOO, 000, OOO, OOO, OOO, OOO 

710 DATAOOO , OOO, OOO, OOO, OOO, OOO, 000, 000 

720 DATAOOO, OOO, OOO, OOO, OOO, OOO, OOO, OOO 

730 DATAOOO, OOO, OOO, OOO, OOO, 000, 000, OGO 

740 DATAOOO , 000 , OOO , OOO , OOO , OOO , OOO , OOO 

750 DATAOOO, OOO, OOO, OOO, OOO, 000, OOO, OOO 

760 DATAOOO , OOO, OOO, OOO, OOO, OOO, OOO, OOO 

770 DATAOOO , OOO , OOO , OOO , OOO, OOO, OOO, OOO 

780 DATA048 , 048 , 048 , 048 , 056 , 054 , 1 27 , 255 

790 DATAOOO, 001,00 1,003,003, 007,255, 175 

BOO DATA255 , 255 , 255 , 247 , 255 , 255 , 255 , 223 

810 DATA254, 254, 255, 239, 255, 255, 252, 255 

820 DATAOOO, OOO, OOO, OOO, 128, 127, 170,255 

830 DATA003, 003,003, 007,023, 107, 183,255 

840 DATA248 , 248 , 248 , 252 , 254 , 25 1 , 255, 22 1 

850 DATAOOO , OOO , OOO , OOO , OOO , 128 , 224 , 184 

860 DATAOOO, OOO, OOO, OOO, OOO , OOO , OOO, OOO 

B70 DATAOOO, 192,224, 127, 127,224, 192,000 

880 DATAOOO, OOO, 064 , 248 , 248, 064 , OOO, OOO 

890 DATAOOO, OOO, OOO, OOO, OOO, OOO, OOO, OOO 

900 DATAOOO, OOO, OOO, 000, 119,093, 119,255 

910 DATAOOO, OOO, OOO, 000,000, 254, 149,255 

920 DATA032 , 032 , 032, 080 , 080, 1 27, 1 19 , 253 

930 DATAOOO, OOO, OOO, OOO, OOO, OOO, OOO, 255 

940 DATAOOO , 036 , 036 , 036 , 036 , 036 , 1 02 , 1 89 

950 DATAOOO , OOO , 024 , 024 ,024,024, 024 , 024 

960 DATAOOO, OOO, OOO, OOO, OOO, OOO, OOO, OOO 

970 DATAOOO, OOO, 000,000, 000, OOO, 000,000 

9BO DATAOOO, OOO, 000, OOO, OOO, OOO, OOO, OOO 

990 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , 000 

lOOO CHAR2: RESTORE: FDRAX=&HF400TO&HF5AF I t READBX: POKEA - /., BXtNEXTs RETURN 

1010 COLOUR16«S0UNDO,O«SOUNDl,8iSOUND2,0:SOUND3,B:SOUND4,0tSOUND5,8sSOUND6,24:S0 

UND7, 7i BOUNDS, 24: SOUND9, 24i SOUND 10, O: S0UND1 1 , 48: SOUND12, 45s S0UND13, 3s FRINTSV*40+ 

X, CHR*<230) ; :F0RT=lT010sNEXTT:PRINT§V*40+X, " "; tC0LQUR6: RETURN 

1020 COLOURS 

1030 FDRA=0T0255: OUT255, Al NEXT: F0RB=1T03: F0RA=S2T042STEP- 1 t POKE17149, A: L6R: NEXT: 

F0RA=42T052 : POKE 1 7 1 49 , A : L6R : NE XT : NEXT 

1040 PRINT5920, STRING* (39, 230> ; :F0RT=lT040:NEXTTt BGRDtF0RT=lT010:NEXTT:PRINT§880 

, STRING* (39, RND <50) +200) J I NBGRD: SOUNDO, 255: SOUND 1 , 15: SOUND2, 255: SOUND3, 15: SOUND4 

, 255: SOUNDS, 15: S0UND6, 23: SOUND7, 7: SOUNDS, 31 : SOUND9, 31 : SOUNDIO, 31 : SOUND 1 1 . 255: SOU 

ND12,255:SDUND13,9 

1050 COLOUR 16 

1060 CLS:F0RT=1T02000:NEXTT 

1070 CLS: PR I NT "HAST DU EIN SCHWEIN, DASS ALLES 

NUR SPIEL 1ST...." y^ fA(Al) 

lO80*PRINT:PRINT"NOCHMAL?":G0TO1180 *f \ J l") 

1090 CLS:PRINT"EIN KKW (TVP 'SCHNELLER BRUETER" ) 

WIRD VON SABOTEUREN (TYP 'UNBEKANNT') 
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1095 PR I NT "MIT RAKETEN BESCHOSSEN. D1ESE RAKETEN 

MUESSEN MIT DEN TASTEN "jCHR* (253) 5 " UND ";CHR«{255) ; - ABGE- 

SCHOSSEN WERDEN, SON3T 61 BT JES EINE 

FURCHTBARE ATOMKATASTROPHE.* 

llOO PRINT"BEACHTE, DASS NUR IMMER EIN SCHUSS 

ABBEFEUERT WERDEN DARF • >. " 

lllO PRINT :PRINT"DAS SPIEL 1ST ZU ENDE, WENN DU DAS KKW 

DIE ANBEGEBENE ZEITLANG VERTEIDISEN 

KONNTEST. 

BITTE WAEHLE DEINEN SCHWIERIBKEITS6RAD: " 

1120 PRINT:PRINT"<1) ANFAENGER" i PRINT " <2) FORTGESCHRITTENER"» PRINT" <3> - 

— PROFI" 

1130 A*=INK£Y*iIFA*=""THEN1130 

1140 IFVAL(A*X10RVAL(A*) >3THEN1130 C r L 

1 150 IFVAL (A*) = 1THENTT=50: IFVAL (A*) =2THENTT=RND <20) : IFVAL <A*) =3THENTT=RND <8) ~5> L 

1160 ZZ=40«VAL<A«) sZ2»5-VAL(A*> sCLS;RETURN 

1170 C0LDUR16:CLS: PRINT" GEWONNEN !!.' 

nochnal (J/N) ?" 
11SO A*=INKEY*: IFA*=" " THEN 1 180 
1 1 90 IFA*< > " J " ANDA*< > "N " THEN1 1 BO 
1200 IFA*="N"THENENDELSECLEAR100: G0T060 
1210 CLS:F0RT=lTOlOOOO:NEXTT 
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3. Sound Editor 



10 CLS: COLOURS 

20 PRINTSTRING»(13,217); " Sound Editor "STRING*( 13,217) 

30 COLOUR16 

40 PR I NT "Urn ein Bit eines PSB-Registers zu" 

50 PRINT"aendern, fahren Sie den blinkenden" 

60 PRINT"Cursor mit den 4 Pfeiltasten an die" 

70 PRINT"entspreehende Bildschirmstel le. " 

BO PRINT"Dort koennen Sie durch Druecken der" 

90 PRINT"Leertaste das Jeweilige Bit invertieren, "; 

lOO PRINT-d.h. aus O wird 1 und aus 1 wird O." 

110 PRINT"Aus '-' wird entsprechend ein 'A*, *B'," 

120 PRINT"'C', 'D' Oder 'M'." 

130 PRINT 

140 PRINT"Durch Druecken der <P>-Taaste wird der" 

150 PRINT"aktuelle Ton ausgegeben; dies ist" 

160 PRINT"interessant bei der Programmierung von" 

170 PR INT " nicht— period ischen Toenen. " 

180 PRINT-Durch Druecken der <Q>-Taste wird die" 

190 PRINT"Tonausgabe vorlaeu-fig abgeschaltet. " 

200 PRINT"Wenn Sie die <L>-Taste druecken, werden" 

210 PRINT"die Dezimalwerte aller PSG-Register" 

220 PRINT"programiBierten Werte geloescht." 

230 COLOUR 2 

240 PRINT§920, "ZUM FORTFAHREN"; (COLOURS; PR I NT" <RETURN> " ; iC0L0UR2sPRINT"DRUECKE 

N !"; 

250 IFINKEY*OCHR*U3)THEN250 

260 CLS«CLEAR2000»DEFINTA-ZsDIMA(22) ,AS<21) ,B<13> ,E*(15) ,R( 13) , V (21 ) sCHAR2sCOLOU 

R16iG0SUB270aG0T0530 

270 CLSsPRINT"Register":PRINT§34, "Byte" 

2BO PRINT" ";STRIN6*<38,21B);" "j 

290 A*<0)=CHR*<219>+" R0 " +CHR* < 225 > + " "+STRINE*(3, 195) + " Tone "+CHR» (225>+"Fi 

ne Tune 000O000O"+CHR*(2O7) 

300 A*U>=CHR*(219>+" Rl "+CHR« (225)+" "+CHR*<195)+"A"+CHR*(195) +" Period "+CHR* 

<225)+"Coarse Tune 0000"+CHR*(207) 

310 A*(2)=CWW(219)+" R8 "+CHR« (225) +" "+STRIN6*(3, 195)+" Amplit. "+CHR*(225) +" 

- 0000"+CHR*(207) 
320 A*<3)~CHR*(219)+STRING«(4,217)+CHR*(194)+STRIN6*(12,217>+CHR*(194)+STRINB*(2 
0,217)+CHR*(2O7) 

330 A*<4>=LEFT«<A*<0>,3)+"2"+RIGHT*(A*(0),36) 

340 A*(5)=LEFT*(A*(l) f 3)+"3"+MID*(A*(l),5,4)+"B"+RIGHT*(A*<l) ,31 J 
350 A*(6)=L.EFT«(AS(2),3)+"9"+RIGHT*(A«<2) ,36) 
360 A*(7)=A*(3) 

370 A»(8)=LEFT*(A*(0),3)+"4"+RIGHT*(A*(0) ,36) 

3BO A*(9)=LEFT*(A*<l),3)+"5"+riID*(A*(l>,5,4)+"C"+RI6HT*(A*(l),31) 
390 A»(10)=LEFT*(A»(2),3)+"10 ,, +RIBHT*(A*(2),35) 
400 AS(11)=A*(3> 

410 A*(12)=CHR«(219)+" R6 "+CHR* (225) + "Noise Peri od"+CHR* (225)+" 

OOOO " +CHR« ( 207 ) 
420 A*(13)=A*(3) 

430 A*U4)=CHR*(219)+" R7 "+CHR*(225) +" "+STRING*(6,218) +" "+CHRK225) +" 
Noise* Tone* "+CHR«(207> 
440 A*(15)«CHR*(219)+" "+CHR»(225)+" Enable "+CHR*(225}+' , CBA CBA 

"+CHR*(2Q7> 
450 A*(16)=A*(3> 

460 A*(17>=CHR*(219)+" R11"+CHR«<225>+" Envelope "+CHR* (225) +"Fine Tune 0000 
0000"+CHR*(207) 

470 A*(18)=CHR*(219)+" R12"+CHR*(225)+"' Period "+CHR*(225)+"Coarse Tune 0000 
0000 " +CHR* ( 207 ) 
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430 A*<i9)=A*(3) 

490 A*(20)=CHR*(2i9)+" R13"+CHR* (225) +" 5hape/Cycle"+CHR*(225) +" 

1101"+CHR*(207> 

SOO FQRA=0T020: PR INTO* ( A) ; s V ( A) =PEEK ( VARPTR (A* < A) > +1 ) +256*FEEK ( VARPTR ( A* ( A) ) +2) : 

NEXT 

510 PRINT" "STRING*(3B,211>; 

520 PRINT§900,E*(R(13) ) ; :RETURN 

530 X=31:F0RA=2T022:READA<A> :NEXT:F0RA=0T013:READB (A) sNEXTlDATAO, 1,8,-1,2,3,9,-1 

,4,5, 10, -1,6, -1,-1, 7, -1,1 1,12, -1,13, 8,4,8,4, 8, 4, 5, 6,5,5,5,8,0,4 

540 E* <0) =CHR* (224) +STR ING* (5, 218) : E* ( 1 ) =E* (0) s E* (2> =E* (O) l E* (3) =E* (O) 

550 E* (4) =CHR* (205) +STRING* (5, 218) : E* (5) =E* (4) : E* (6) =ES (4) I E* <7) =E» (4) 

560 E* (8) =STRI NG* (6, 224 > i E* (9) =E* (0) : E* ( 12) =STRING»<6, 205) 

570 E* < 1 ) =CHR* ( 224 ) +CHR* ( 205 ) +CHR* (224 ) +CHR* ( 205 ) +CHR* ( 224 ) +CHR* ( 205) 

580 E* (1 1 ) =CHR* (224 ) +STRING* (5, 202) 

570 E* ( 13) =CHR* (205) +STRING* (5, 202) 

600 E* < 14) =CHR* (205) +CHR* (224 > +CHR* (205) +CHR* (224) +CHR* (205) +CHR* (224) 

610 E*(15)=E*(4) 

620 F0RY=2TO22: IFA(Y) >0THENG0SUB840 

630 NEXTs Y=2: PRINTS900, E* (R < 13) ) ; 

640 A=PEEK(-1984) 

650 IFAAND64THENIFX<38THENX=X+1 

660 IFAAND32THENIFX>25THENX=X-1 

670 IFAAND8THENIFY>2THENY=Y-1 

680 IFAAND16THENIFY<22THENY=Y+1 

690 P=X+Y*40: PRINTfP, CHR* ( 14) J 

700 A*=INKEY*sA=PEEK(17408+P) sB*=CHR*(A) 

7IO IFA«=" "THEN760 

720 IFA*="P"THENFQRA=0T013s SOUND A, R (A) ! NEXT 

730 I F A*= " Q " THENSOUND8 , s SOUND9 , 1 SOUND 1 , 

740 IFA*="L"THENCLSi PRINT "Register", "Byte" sFDRA=OTO!3:PRINTA,R (A) sNEXTsPRINTi INP 

UT"Bitte <RETURN> druecken" ; A*: GOTQ260 

750 G0T0640 

760 A*= "" : I FB»= "O " THENA*= " 1 " : GOTOS20 

770 IFB*O"-"THEN810 

7BO IFP=1930RP=3530RP=51 3THENA*=>"M" I G0T0820 

790 I FP >704ANDP< 708THENA*=CHR* ( -P+704+68 ) 1 60T0820 

800 IFP>71 1ANDP<715THENA*=CHR* (-P+71 1+68) s GOTOS20 

810 IFB*="l■■THENA*="0"ELSEIFB*="A"ORB*=-"B ,, ORB*="C ,, ORB*="M , ■THENA*= , '- , ' 

820 IFA*<>" "THENPRINTSP, A*; i G0SUB840* PRINTS900, E* (R ( 13) ) ; 

830 G0T075O 

840 R=A(Y)sB=Y*40+ 17446 

850 C=O:F0RA=lT0B<R) 

860 I FPEEK ( B) =32THENB=B-1 s GOT0860 

870 A*=CHR* (PEEK (B) ) ! IFA*< >"0"ANDA*< >"-"THENC=C+2«A 

880 B=B-l:NEXT:R(R)=C/2sF0RA=0T013sS0UNDA,R(A) sNEXT 

890 RETURN 
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4. Zeicheneditor 



K> ClS-.REM CLEMENS BECHER SEPT. 82 
15 CLEAR100:DEFINTA-Z 
20 CHAR2sFK£*'2="RUN 
25 COLOUR2 

30 PRINT"Def lmerbare Zeichen aus DATA-ZEILEN 
oder ana Speicher auslesen (D/S) *"CHR*(14)s 

35 A*= I NKE Y* s I FAS= " D " THEN6DSUB740ELSE I FA*= - S "ORA*=CHR* (13) THEN40ELSE35 
40 PRINrLHR*(15)s:CLS 

45 C0LCUR2:PRINTSTRING*(40,217)J :PRINT" EDITOR FUER DEFINIERBARE ZEICHEN"sPRI 
NTSTRING*(40,217> 
50 COLOUR6 

55 PRINT 5242, CHR* (223) STRING* (1 6, 21 1 ) CHR* (227) 
60 F0RA=1T04:PRINT" "CHR* C207) TAB( 19)CHR* (219) :NEXT 
65 PRINT' "CHR* (227) STRING* (16, 218) CHR* (223) 
70 COL0UR4 : PR I N T §203 , "O 1 2345A789ABCDEF " ; 

75 PPINT§280, "O"! :PRINTf320, " 1 " s sPRINT1360, "2"s :PRINT§400, "3"^ 
BO COLOUR2 

85 PRINTS520, "Bewegen des rechten 

Cursors mit "CHR* (232) " "CHR* (251)" "CHR* (253) " "CHR* (255)", 
BEWEGEN DES LINKEN 

MIT .'SHIFT> "CHR*<232)" "CHR* (231 )" "CHR*(253)~ "CHR*(255) ". " 
90 PRINTS6BO, "Setzen: i SPACE >-,Loeschens <CLEAR>-Taste"; 
95 PRINTS80O, "Loeschen des aktuellen Zeichens nut F2" 
lOO PRINT§760,"Anderes Zeichen editieren mit Fl" 
105 PRINTS84f», "Loeschen der gesamten Tabelle mit F3" 
110 PR INTS880, "Tabelle in DATA Zeilen schreiben mit F4"j 
115 CQLOUP4 

120 PP1NT5225, "01234S67"sF0RA=0T07:PRINT§3O2+A*40,CHR*(A+48) ; iNEXT 

125 COLOUR6:PRINT§264, CHR* (223) STRING* (8, 211) CHR* (227) ; «F0RA=0T07sPRINTf 3O4+A«40 
, CHR* (207) STRING* (8, 32) CHR* (219) s i NEXT: PR I NT 5624, CHR* (227) STRING* (8, 218) CHR* (223 
)S 

130 PRINT S3 15, "ASCI I " ; : PRINTS395, "Code; " ; s COLOUR9: PRINT1476, " 128" ; ; PRINTS557, CHR 
*(128); 

135 F0RA=«JT07: PRINT§305+A*40, STRING* (8, CHR* (246) ) t : NEXT 

140 C0L0UR16:FDRA=0T03:FDRB=0T015:PRINTS283+B+A*40,CHR*(A*16+B+128) } «NEXTsNEXT 
145 P=305:D=12B:E=129:C0C0UR9 

ISO E=D!C=(D-12B)*8+«-HF400:F0RB=0T07!A=0sF=128:C=PEEK(C+B) sPRINTS305+B*40, ; 
155 IFL-=FTHENPRINTCHR*(202) ; :L=L-F:ELSEPRINTCHR*(246) j 
160 F=F/2: A=A+1 : IFA=BTHENNEXTELSE155 
1 65 COLOURS : PR I NT §P , CHR* ( 202 ) ; l COLOUR9 

1TO B= (F-305) /40: A=41 * ( (P-305) /40-B) : I F ( PEEK ( C+B ) AND2A ( 7-A ) ) =2A (7-A) THENPRINTS30 
5+B*40+A, CHR* (202) ; ELSEPRINTS305+B*40+A, CHR* (246) ; 

1 75 A*= I NKEY* : I FA*= " " THEN1 BOELSE I FPEEK ( - 1 984 ) =0THEN IFA*=CHR* (91) THENT*=8 1 GOTOl BSE 
LSEIFA*=CHR*( lu> THENT=16:G0T01B5ELSEIFA*=CHR*(8) THENT=32l G0T0185ELSEIFA*=CHR* (9) 
THENT=64: GOTO 185 
180 T=PEfc* (-1784) 
185 IFPEEKi-1920)=lTHEN225 

190 IF2ANDTTHENPOKE(C+B) , (PEEK (C+B) OR2A (7-A) )-(2A(7-A) ) :PRINTSP, CHR* (246) 5 
195 IF12BAND1THENPQKEC+B, PEE»< (C+B) 0R(2A(7-A) ) : PRINT5P, CHR*(202) ; 
200 I F8ANDT THENP=P-40 : I FP< 305THENF=P+40 
205 IF16ANDTTHENP=P+40:IFP >592THENP=P-40 

210 IF32ANDTTHENP=P-1 s IFP^305THENP=P+1ELSEIFINT ( (P-304) /B) = (P-304) /8THENP=P+1 
215 IF64ANDTTHENP=P+1: IFP >592THENP=P-1EL5EIFINT ( (P-305) /8) = (P-305) /8THENP=P-1 
220 IFPEEK(-1920)=UTHEN245 
225 I FT=BTHENE=D : D=D- 1 6 : I FD' 1 28THEND=D+ 16 
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230 I FT= 1 6THENE=D : D=D+ 1 6 s I FD ' 1 9 1 THEND=D- 1 6 

235 I FT=32THENE=D : D=D- 1 1 I FD-" 1 28THEND=D+ 1 

240 I FT=64THENE=D : D=D+ 1 : I FD - 1 9 1 THEND=D- 1 

245 Q=INT(D/16)*24+D-37:PRINTCHR*(15>ssCQL0UR3:PRINT§a,CHP*f2<J2>: :CQLQUR16: IFE- 

DTHENPRINT§INT<E/16>»24+E-37,CHR*<E>:sC0LOUR9:PRINT§47to,USING u #*#'^Ds!PRINT§557, 

CHR*(D)j:60T0150 

2SO IFT<'^OTHENCOLOURli:PRINT5Q,CHR*<E) : :COLOUR9: 1FE< -DTHEN150: ELSE 165 

255 IFA*=CHR* (93) THENGOSUB285 : IFA*=CHR* (31 ) THENF0R6=0T07 : POt= EC+G , Os NEXT : FORA=OTO 

7: PRINT§3O5+A*40, STRING* <B, 246) : : NEXT : GQT0165 

260 I F A*=CHR* ( 94 > THENBOSUB2S5 : 1 FA*=CHR* (31) THENF0R6=&HF40OTOS-HF5FF : POKES , O ! NE X T : 

F0RA=0T07sPRINT§305+A*40, STRING* (B, 246) :: NEXT: GOTO 165 

265 I FA*=CHR* ( 92 ) THENG0SUB300 

270 CQL0UR16:PRINT§Q,CHR*(E) ; :CQLDUR9: IFDOETHEN150 

275 I F A*=CHR* ( 95 ) THENGOSUB285 r I FA*=CHR* (31) THEN745ELSE 165 

280 GOTO 165 

283 C0L0UR5 SPRINT §923, "Be+ eh 1 richtig (CLEAR) druecken": : COLOUR 16 

290 A*= I NKE Y* ; I FA*= " " THEN290 

295 PRINT§920,CHR*(31> J*RETURN 

300 COLOUR5iPRINTS920,"Koordinaten eingeben (X,Y) z.B. s B 3"; 

305 PRINTS476," ": 

310 PR1NTS476,CHR*(14); 

315 A*=INKEY*: IFA*= , '"THEN315ELSEIFA*=CHR*(31 )THEN340ELSEV=VAL (A*) s IFV=OAND(A*^>" 

0"AND ( ASC ( A4X6S0RASC (A*) >70) ) THEN315ELSEPRINTS476, A*s 

320 PR I NT §477,". "; 

325 Al=Vt IFASC(A«) >64THENA1=ASC(A*) -55 

330 A*=INKEY*s IFA*=" "THEN330ELSEIFA*=CHR* (31 ) THEN340ELSEV=VAL (A*) : IFV=0ANDA*-' >"0 

"0RV>3THEN330ELSEPRINT§478 , A*; 

335 D=16*V+A1+12B 

340 PRINTS920, CHR* ( 15) CHR* (31 ) : 

345 PRINTS476, USING "###" ; D: : PRINTS557, CHR* (D> s : COLOUR9 

350 RETURN 

355 REMARK 

UM DIE DEFINIERBAREN ZEICHEN ZU LADEN 

TIPPEN SIE IN DEN ERSTEN PROGRAitMZEILEN 

IHRES PROGRAMMS GOSUB 740 . 

360 END 
365 C*=" " 

370 DAT AOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 
375 DAT AOOO , OOO , OOO , OOO , OOO , OOO , OOO, OOO 
380 DATAOOO , OOO , OOO , OOO . OOO , OOO , OOO , OOO 
385 DATAOOO , OOO, OOO , OOO, OOO, OOO, OOO , OOO 
390 DATAOOO , OOO , 000 , OOO , OOO , OOO , OOO, OOO 
395 DATAOOO , OOO, OOO , OOO, OOO, OOO, OOO , OOO 
400 DATAOOO , OOO , OOO , OOO , OOO , OOO . OOO , OOO 
405 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , 000 
410 DATA014, 017,032, 032, 032, 032, 016, 015 
415 DATAOOl , 002, 002, 051 , 07B, 073, 200, 048 
420 DATA128, 064,128, 006,009, 009,153, 102 
425 DATAOOO , OOO , OOO , 036 , 228 . 036 , 036 , 027 
430 DATAOOO , OOO , OOO , 038 , 088 , 072 , 1 36 , 008 
435 DATAOOO , OOO , OOO . OOO ,120, OOO , OOO , OOO 
440 DATAOOO , 000 , 000 , 000 , 000 , OOO , 000 , OOO 
445 DATAOOO , OOO , OOO , OOO , OOO , OOO, OOO , OOO 
450 DATAOOO , OOO , OOO , OOO , OOO , OOO , 000 . OOO 
455 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 
460 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 
465 DATAOOO , 000 , OOO, OOO , OOO , OOO , 000 , 000 
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4^ > DATA'jno, 000,000. 000,000. 000,000.000 

475 DATAOOO . OOU , HOO , OOO , OOO , OOO , OOO , OOO 

48f> DATAOOO, 000. OOO, 000, OOO, 000, OOO, 000 

435 DATAOOU , OOO , OOO , OOO , OOO , 000 , OOO , OOO 

490 DATAOOU, OOO, 000, 000, OOO, 000, 000, OOO 

495 DATAoOu, 000, OOO, OOO, OOO, 000, OOO, OOO 

500 U AT AOUO , OOO , OOO , OOO , 000 , OOO , OOO , OOO 

5«5 DATAOOO , OOO ,014,017, 032 , 032, 032 , 035 

510 DATAOOO.000,000,000,000,000,012, 146 

515 DATAOOO, OOO, OOO, OOO, OOO, OOO, 022, 041 

520 DATAOOO, "00, 000, 016,000, OOO, 016,017 

525 DATAOOO , OOO , OOO , OOO , OOO , OOO , 224 , O 16 

530 D AT AOOO , OOO , OOO , OOO , 000 , OOO , OOO , 000 

535 C ATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 

540 DATAOOO, OOO, 000, 000, OOO, OOO, OOO, OOO 

545 DATAOOO , OOO , 000 , OOO , OOO, 255 , OOO . 1 98 

53* 1 DATAOOO, OOO, OOO, 000, OOO, 03 1 . 032, 078 

555 DATAOOO , OOO , 000 , 000 , 000, 1 59, 032 , 079 

56(1 DATAOOO , OOO , OOO , OOO , OOO , 1 28 , OOO , OOO 

565 DATAOOO , OOO , OOO , OOO , OOO , 1 5, 03 1 , 032 

57' J DATAOOO . OOO , OOO , 000 , OOO , OOO , OOO , 03 1 

575 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , 028 

580 DAT AOOO , OOO , OOO , OOO , OOO , OOO . OOO , OOO 

585 DATA032 ,017,014, OOO , OOO , OOO, 000 , OOO 

5*?0 DATA1 4e> , Ol 2 , 1 1 5 . OOO , OOO , OOO , OOO, OOO 

595 D AT A073 , 1 37 , OOB , 000 , 000 , OOO , OOO , OOO 

600 DAT A025 ,040, 199, OOO, OOO , OOO , OOO . OOO 

605 DAT A032 , 1 92 , 24B , OOO , OOO , OOO , OOO , OOO 

6 1 O DATAOOO , OOO , 000 , OOO , 000 , OOO , OOO, OOO 

615 DATAOOO , OOO . OOO, OOO , 000 . OOO , OOO , OOO 

620 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO , OOO 

625 DATA072, 073, 073, 073 , 073, 073, 072, 072 

630 DATA136, 016, 032,032,032,031,128,126 

635 DATA144 , 078,033,028,002,060,001, 126 

640 DATAOOO , OOO , OOl , 1 30 , O68 , 1 36 , 03 1 , 063 

645 DAT A079 , 1 44 , 063 , 064 , 255 , OOO , 255 , 255 

650 DATA016, Ol 6, 028, 016, 01 6, 031 , 000, OOO 

655 DATA034 . 032 , 036 , 034 , 034 , 028 , OOO , OOO 

ti60 D AT AOS6 , O68 , 004 , 024 , 032 , 1 24 , OOO , 000 

665 DATA112, 137, 137,137,137,112,000,000 

670 DATA225, 018, 018, 018, 01 8, 225, 000, OOO 

6^5 DATA192, 032, 032, 032, 032,192,000,000 

680 DATAOOO , OOO. OOO, OOO, OOO, OOO, OOO, OOO 

685 DATAOOO , OOO , OOO , OOO , OOO , OOO , OOO, OOO 

690 D*=" " 

695 PR I Nl CHR* < 1 5> : s OVARFTR < C* » s D=VARPTR ( D* ) : H=-3073 

700 C=PEEK (C+l ) +256*PEEK (C+2) ! D=PEEK <D+1 ) +256*PEEK < D+2 > a Z=128 

705 FORE=C+7TOD-41STEP37s Z=Z+l:FORF=OT028STEP4l A=F+EsH=H+l 

710 P=PEEl'<H) :P0*;EA+1,P/100+4SjP0I<'EA+2, INT (P/IO) -INT (P/lOO) » 1 0+4B : POKEA+3 , F- I NT ( 

P/10)*10+4B 

715 PFINTS920, "Gespeichertes Zeichen: "Z: 

720 NEXT: NEXT; FKEY2="DEt_ETE7" 

725 FFEY3=" 45-855 

730 FK"EY4="CSAVE D" 

735 CLSsPOKEl 7258, 34 :P0KE17259. 68: RETURN 

740 CHAR2: RESTORE : FORA7.=ScHF400TOltHF5FF : RE ADBX : POKEAX , BXi NEXT: RETURN 

745 CLSs COLOUR 16 

7SO PRINT"DIESE ROUTINE ERMOE6LICHT ES IHNEN DIE" 

755 PRINT-BERADE DEFINIERTEN ZEICHEN IN DATA-" 

760 FRINT"ZEILEN ZU SCHREIBEN, DIE SIE IN IHREM" 

765 PPINT-PROGRAMM AUFRUFEN KOENNEN (60SUB 1250) " 

770 PRINT"UND MIT ^CHR* < 1 28 ) -CHR* ( 1 9 1 ) AUFRUFEN" 

775 PRINT-KOENNEN. ES GIBT NUN ZWEI MOE6LICHKEITEN" 
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780 PRINT" 

SIE KOENNEN DEM DEFINITIONSTEIL AUF" 

785 PRINT"KASSETTE ABSPEICHERN, UM DIE ZEICHEN ZU" 

790 PRINT"EINEM SPAETEREN ZEITPUNKT NOCH EINMAL ZU"; 

795 PRINT"AENDERN ODER SIE SPEICHERN NUR DIE DATA" 

BOO PRINT "ZEILEN AB UM DIESE ALS UNTERROUTINE FUER"; 

B05 PRINflHR PROGRAMM ZU BENUTZEN. 

M 

BIO C0LDUR4: PR I NT sPRINT "DAT A- ZEILEN ODER KOMPLETTES PROGRAMM 

D,P"CHR*(14>j 
B15 A*=INKEY«iIFA*="D"THENGOSUB365sPRINT"DRUECHEN SIE JETZT F2 UND DANACH F3 

UM DIE DATAZEILEN ZU 5ICHERN DRUECKEN 

SIE F4 DANACH < RETURN >.": DELETE 1 5-350 

820 I F A*= " P " THENG0SUB365 5 G0SUB830 5 RUN 

825 GDT0815 

830 COLOUR3sPRINT:PRINT"KASSETTE BEREIT MACHEN <RETURN> DRUECKEN " s PR I NT 

835 PRINT"ENDE MIT < CLEAR >" 

840 A*=INKEY*: IFA*=""THEN840 

845 I F A*=CHR* < 1 3 ) THENCSAVE " DEF " : 60T0B30 

850 I FA*=CHR* < 3 1 ) THENRETURN : ELSE835 

855 END 
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